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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#in elude <shast ra/network/sharedMem. h> 
#ifdef WANT 



contains 








struct 


ipc_perm shm_perm; 


/* 


operation permission struct */ 


int 


shm_segsz ; 


/* 


size of segment */ 


ushort 


shm_cpid ; 


/* 


creator pid */ 


ushort 


shm_lpid ; 


/* 


pid of last operation */ 


short 


shm_nattch; 


/* 


number of current attaches */ 


time_t 


shm_atime ; 


/* 


last attach time */ 


time_t 


shm_dtime ; 


/* 


last detach time */ 


time_t 


shm_ctime ; 


/* 


last change time */ 






/* 


Times measured in sees since */ 






/* 


00:00:00 GMT, Jan. 1, 1970 */ 


contains 








ushort 


cuid ; 


/* 


creator user id */ 


ushort 


cgid ; 


/* 


creator group id */ 


ushort 


uid ; 


/* 


user id */ 


ushort 


gid ; 


/* 


group id */ 


ushort 


mode; 


/* 


r/w permission */ 



#endif /*WANT*/ 

#define ALIGN2F0UR(n) ( ( (n)/4+l)*4) 

shmlnfo * 
shminf oCreate( ) 
{ 
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shmlnfo *pShmInf o; 

pShmlnfo = (shmInfo*)malloc(sizeof (shmlnfo) ) ; 
memset(pShmInfo, 0, sizeof ( shmlnfo) ) ; 
pShmInf o->shmId = -1; 
pShmInfo->shmAddr = (char*)-l; 

return pShmlnfo; 

} 

int 

shMemAlloc ( pShmlnfo, nSize) 
shmlnfo *pShmInfo; 
int nSize; 
{ 

/* 

pShmlnfo = shminf oCreate( ) ; 
*/ 

if ( !pShmInfo){ 
return 0; 

} 

nSize = ALIGN2F0UR( nSize) ; 

pShmInfo->shmId = shmget ( IPC_PRIVATE, nSize, IPC_CREAT | 0755 ) ; 
if (pShmInfo->shmId < 0) { 

perror( "shmget" ) ; 

return(0) ; 

} 

pShmInf o->shmSize = nSize; 

pShmInfo->shmAddr = (char *)shmat(pShmInfo->shmId, 0, 0); 
if (pShmInfo->shmAddr == ((char *)-!)) { 

perror( "shmat" ) ; 

return(0) ; 

} 

/* Clear the memory out */ 
memset(pShmInfo->shmAddr, 0, nSize) ; 

return 1; 

} 



int 

shMemConnect (pShmlnfo) 
shmlnfo *pShmInfo; 
{ 

ifdpShmlnfo || ( pShmInf o->shmId < 0)){ 
return 0; 

} 
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pShmInf o->shmAdd r = (char *)shmat(pShmInfo->shmId, 0, 0); 

if (pShmInfo->shmAddr == ((char *)-!)) { 
perror( "shmat" ) ; 
return(0) ; 

} 

if (shMemGetlnfo(pShmlnfo) != 0){ 

pShmInf o->shmSize = pShmInf o->shmIdDS . shm_segsz ; 

} 

return 1; 

} 



int 

shMemD is connect ( pShmInf o) 

shmlnfo *pShmInf o; 

{ 

if ( ! pShmInf 0 || ( pShmInf o->shmId < 0) || ( pShmInf o->shmAdd r == (char*)- 
1)){ 

return 0; 

} 

if (shMemGetlnfo(pShmlnfo) != 0){ 

if(getpid() == pShmInf o->shmIdDS . shm_cpid ) { 
shMemFree( pShmInf o) ; 

if( pShmInfo->shmIdDS. shm_nattch > 1){ 
fprintf (stderr, 

"shMemDisconnect ( )->warning . . %d procs still attached !\ 
n" , 

pShmInf o->shmIdDS. shm_nattch) ; 

} 

} 

} 

if (pShmInfo->shmAddr != (char*)-l){ 

if (shmdt(pShmInfo->shmAddr) == -1){ 
perrorC'shmdt" ) ; 
pShmInf o->shmAdd r = (char*)-l; 
return(0) ; 

} 

pShmInf o->shmAdd r = (char*)-l; 

} 

return 1; 

} 

int 

shMemReconnecKpShmlnfo, shmid) 
shmlnfo *pShmInfo; 
int shmId; 
{ 

if ( IpShmlnfo | | (shmId < 0) ){ 
return 0; 

} 

if (pShmInfo->shmId != shmld){ 
shMemDisconnect(pShmlnfo) ; 
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pShmInf o->shmId = shmid; 
return shMemConnect ( pShmInf o) ; 

} 

return 1; 

} 

int 

shMemDelete(pShmInfo, shmId) 
shmlnfo *pShmInf o; 
int shmId; 
{ 

if ( IpShmlnfo | | (shmId < 0) ){ 
return 0; 

} 

if ( pShmInf o->shmId == shmld){ 
return shMemFree(pShmlnfo) ; 

} 

return 0; 

} 

int 

shMemFree ( pShmInf o) 
shmlnfo *pShmInf o; 
{ 

if ( IpShmlnfo || ( pShmInf o->shmId < 0)){ 
return 0; 

} 

if (pShmInfo->shmAddr != (char*)-l){ 

if (shmdt(pShmInfo->shmAddr) == -1){ 
perrorC'shmdt" ) ; 
pShmInfo->shmAddr = (char*)-l; 
return(0) ; 

} 

} 

if (shmctl(pShmInfo->shmId, IPC_RMID, NULL) == -1){ 
perror("shmctl(IPC_RMID)") ; 
return(0) ; 

} 

pShmInf o->shmId = -1; 
pShmInfo->shmAddr = (char*)-l; 

return 1; 

} 



int 

shMemGetInf o(pShmInf o) 
shmlnfo *pShmInfo; 
{ 

if (IpShmlnfo || ( pShmInf o->shmId < 0)){ 
return 0; 

} 



Page 4 of 5 



shared Mem.c 



7/5/11 11:14 AM 



if (shmctl(pShmInfo->shmId, IPC_STAT, &pShmInf o->shmIdDS) == -1){ 
perror("shmctl(IPC_STAT)") ; 
return(0) ; 

} 

return 1; 

} 



int 

shMemReuseSegment (pShmlnfo, nSize) 
shmlnfo *pShmInf o; 
int nSize; 
{ 

if ( IpShmlnfo ){ 
return 0; 

} 

if (pShmInfo->shmId >= 0){ 

if(nSize > pShmInf o->shmSize) { 
shMemDisconnect (pShmlnfo) ; 
return shMemAlloc ( pShmlnfo, nSize); 

} 

} 

else{ 

return shMemAlloc ( pShmlnfo, nSize); 

} 

return 1; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* test.c — multicast testing 
*/ 

#include <stdio.h> 
#include <errno.h> 
#include <string.h> 
#include <fcntl.h> 
#include <netdb.h> 
#include <sys/time.h> 
#include <sys/file.h> 
#include <sys/types . h> 
#ifdef SHASTRA4SUN5 
#include <sys/systeminf o. h> 
#include <sys/sockio. h> 
#endif 

#include <sys/socket . h> 
#include <sys/ioctl. h> 
#include <netinet/in . h> 
#include <net/if.h> 

#in elude <shast ra/network/mplex. h> 
#include <shast ra/network/udp. h> 

/*UDP utils 

use connect to isolate comm endpoint, and bad connect to disconnect 

or good connect to reconnect elsewhere 

*/ 
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/* 

valid Sun4.1 net interfaces (akhil etc: 

le0, lo0 (ell ee zero, ell oh zero) 
valid SGI net interfaces (arjun, agasti etc: 

ec0, lo0 (ee cee zero, ell oh zero) 

(escher) 

et0, fxp0, lo0 (ee tee zero, eff ex pee zero, ell oh zero) 
*/ 

static int cmGetMulticastInterface(Prot4(char*, char*, int, struct in_addr* 
)); 

static int cmGetBroadcastInterface(Prot5(char*, char*, int, struct in_addr* 

struct sockaddr_in*) ) ; 
static int cmConvertSt ring2IPAdd ress ( Prot2 ( char *, struct in_addr *) ) ; 

static struct sockaddr_in salnMine; 

static int 

cmConvertSt ring2IPAdd ress ( sIFAdd r, pInAddrIF) 
char *sIFAddr; 
struct in_addr *pInAddrIF; 

{ 

struct hostent *pheHost; 

if (sIFAddr == NULL){ 
return 0; 

} 

pInAddrIF->s_addr = inet_add r ( sIFAdd r ) ; 

if (pInAddrIF->s_addr == (unsigned long)-l){ 

pheHost = gethostbyname(sIFAddr) ; 

if (pheHost != NULL){ 

memcpy(pInAddrIF, pheHost->h_add r, pheHost->h_length) ; 

} 

else{ 

f printf ( stderr, "cmConvertSt ring2IPAdd ress ( ) No IP address for '%s'\ 
n" , 

SIFAddr) ; 
return(-l) ; 

} 

} 

return 0; 



/* 

* dump info about network interfaces 
*/ 

static void 
cmShowInterf aces ( iFd ) 
int iFd; 

{ 

int i; 
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Struct ifconf ifConf; 

struct ifreq *pIFReq ; 

char sbBuffer[BUFSIZ] ; 

struct sockaddr_in *pSockAdd r; 

if Conf . if c_len = sizeof( sbBuffer ) ; 
if Conf . if c_buf = sbBuffer ; 

if( ioctK iFd, SIOCGIFCONF, (char *) &ifConf ) < 0 ) { 
perror( "ioctK ) SIOCGIFCONF" ) ; 
return; 

} 

pIFReq = ifConf . if c_req; 

for( i = ifConf . if c_len/sizeof(*pIFReq) ; — i >= 0 ; pIFReq++ ) { 
pSockAddr = (struct sockaddr_in*)&pIFReq->if r_addr; 
fprintf (stderr, "Interface [%d] - %s, Flags(%d, 0x%x), \ 
Family:%d, Address:%ld (0x%lx)\n", 

i, pIFReq->if r_name, pIFReq->if r_f lags, pIFReq->if r_f lags, 
pSockAddr->sin_f amily, 

pSockAddr->sin_addr. s_addr, pSockAdd r->sin_add r . s_addr) ; 

} 

} 

/* 

* get/check if interface exists and is capable of doing multicasting. 

*/ 

static int 

cmGetMulticastInterface(sIFAddr, sinterface, iFd, pInAddrIF) 
char *sIFAddr; 
char *slnterface; 
int iFd; 

struct in_addr *pInAddrIF; 

{ 

#ifdef HAVEMULTICAST 

int i, fFound; 

struct ifconf ifConf; 

struct ifreq *pIFReq ; 

struct in_addr inAddrIF; 

char SbBuffer [BUFSIZ] ; 

char *sLocal; 

if( sIFAddr != NULL) { 

if( cmConvertString2IPAddress(sIFAddr, &inAddrIF) < 0){ 
inAddrIF. s_addr = INADDR_ANY; 

} 

} 

else{ 

inAddrIF. s_addr = INADDR_ANY; 

} 

if Conf . if c_len = sizeof( sbBuffer ) ; 
if Conf . if c_buf = sbBuffer ; 
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if( ioctK iFd, SIOCGIFCONF, (char *) &ifConf ) < 0 ) { 
perror( "ioctK ) SIOCGIFCONF" ) ; 
return( -1 ) ; 

} 

fFound = 0; 

pIFReq = ifConf . if c_req; 

for( i = ifConf . if c_len/sizeof (*pIFReq) ; — i >= 0 ; pIFReq++ ) { 
fprintf (stderr, "Interface [%d] - %s, INET=%d, MCAST=%d, flags=%d\n", 
i, pIFReq->if r_name, pIFReq->if r_addr. sa_family == AF_INET, 
pIFReq->if r_flags & IFF_MULTICAST, pIFReq->if r_f lags ) ; 
if( pIFReq->if r_addr.sa_family != AF_INET ){ 
continue ; 

} 

if( !( pIFReq->if r_flags & IFF_MULTICAST ) ) { 
continue ; 

} 

if (slnterface == NULL){ 
sLocal = pIFReq->if r_name; 

} 

else{ 

sLocal = slnterface; 

} 

if( strncmp( pIFReq->if r_name, sLocal, strlen( pIFReq->if r_name ) ) 
== 0 ) { 
fFound = 1; 

*pInAddrIF = ((struct sockaddr_in *) &pIFReq->if r_addr)->sin_addr ; 

if( ioctK iFd, SIOCGIFFLAGS, (char *) pIFReq ) < 0 ) { 
perror( "ioctK ) SIOCGIFFLAGS" ) ; 
return( -1 ) ; 

} 

if (pInAddrIF->s_addr == INADDR_ANY ) { 

fprintf ( stderr, "cmGetMulticastlnterf ace( )->%s : invalid interface 

address\n", sLocal); 
return( -1 ) ; 

} 

if ( (inAddrIF.s_addr != INADDR_ANY) && 
(pInAddrIF->s_addr != inAddrlF. s_addr) ){ 
continue; 
} 

break; 

} 

} 

if( IfFound) { 

if (slnterface != NULL){ 

fprintf ( stderr, "cmGetMulticastlnterf ace( )->%s : unknown interf ace\n" , 
slnterface) ; 

} 

else{ 

fprintf (stderr, "cmGetMulticastlnterf ace( )->no interf ace\n" ) ; 
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} 

return( -1 ) ; 

} 

return( 0 ) ; 
#else /* HAVEMULTICAST*/ 

return -1; 

#endif /* HAVEMULTICAST*/ 

} 

/* 

* get/check if interface exists and is capable of doing broadcasting. 

*/ 

static int 

cmGetBroadcastInterface(sIFAddr, sinterface, iFd, pInAddrIF, pSockAddr) 
char *sIFAddr; 
char *slnterface; 
int iFd; 

struct in_addr *pInAddrIF; 
struct sockaddr_in *pSockAddr; 

{ 

int i, fFound ; 

struct in_addr inAddrIF; 

struct ifconf ifConf; 

struct ifreq *pIFReq ; 

char sbBuffer[BUFSIZ] ; 

char *sLocal; 

if( sIFAddr != NULL) { 

if( cmConvertString2IPAddress(sIFAddr, &inAddrIF) < 0){ 
inAddrIF. s_addr = INADDR_ANY; 

} 

} 

else{ 

inAddrIF. s_addr = INADDR_ANY; 

} 

if Conf . if c_len = sizeof( sbBuffer ) ; 
if Conf . if c_buf = sbBuffer ; 

if( ioctK iFd, SIOCGIFCONF, (char *) &ifConf ) < 0 ) { 
perror( "ioctK ) SIOCGIFCONF" ) ; 
return( -1 ) ; 

} 

fFound = 0; 

pIFReq = ifConf . if c_req; 

for( i = ifConf . if c_len/sizeof(*pIFReq) ; — i >= 0 ; pIFReq++ ) { 
fprintf (stderr, "Interface [%d] - %s, INET=%d, BCAST=%d, flags=%d\n", 
i, pIFReq->if r_name, pIFReq->if r_addr. sa_family == AF_INET, 
pIFReq->if r_flags & IFF_BROADCAST, pIFReq->if r_f lags ) ; 
if( pIFReq->if r_addr.sa_family != AF_INET ){ 
continue ; 

} 

if(!( pIFReq->if r_flags & IFF_BROADCAST) ) { 
continue ; 
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} 

if (slnterface == NULL){ 
sLocal = pIFReq->if r_name; 

} 

else{ 

sLocal = slnterface; 

} 

if( strncmp( pIFReq->if r_name, sLocal, strlen( pIFReq->if r_name ) ) 
== 0 ) { 
fPound = 1; 

*pInAddrIF = ((struct sockaddr_in *) &pIFReq->if r_addr)->sin_addr ; 
if( pInAddrIF->s_addr == INADDR_ANY ) { 

f printf ( stder r, "cmGetBroadcastlnterf ace( ) ->%s : invalid interface 
address\n", sLocal); 

return( -1 ) ; 

} 

if ( (inAddrIF.s_addr != INADDR_ANY) && 
(pInAddrIF->s_addr != inAddrlF. s_addr) ){ 
continue; 
} 

if( ioctK iFd, SIOCGIFFLAGS, (char *) pIFReq ) < 0 ) { 
perror( "ioctK ) SIOCGIFFLAGS" ) ; 
return( -1 ) ; 

} 

if( ioctK iFd, SIOCGIFBRDADDR, (char *) pIFReq ) < 0 ) { 
perror( "ioctK ) SIOCGIFBRDADDR" ) ; 
return( -1 ) ; 

} 

memcpy(pSockAddr, &pIFReq->if r_broadadd r, sizeof ( pIFReq-> 

if r_broadaddr) ) ; 
break; 

} 

} 

if( IfFound ) { 
if (slnterface){ 

f printf ( stderr, "cmGetBroadcastlnterf ace( )->%s : unknown interf ace\n" , 
slnterface) ; 

} 

else{ 

fprintf (stderr, "cmGetBroadcastlnterf ace( )->no interf ace\n" ) ; 

} 

return( -1 ) ; 

} 

return( 0 ) ; 

} 

/* 

* Get a unicast socket for the given service. 
*/ 

int 

cmSetupUCastSocket ( sService, iPort, eSockMode, pSockAddr) 
char *sService; 
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int iPort; 

enum udpSockMode eSockMode; 
struct sockaddr_in *pSockAddr; 

struct hostent *pheHost; 
struct servent *pseService; 
int iFd, iRetVal; 
unsigned char cUtil; 
unsigned short hUtil; 
unsigned int iUtil; 

switch(eSockMode){ 
case udpRead: 
case udpWrite: 
case udpReadWrite: 

break; 
default: 

fprintf( stderr, "Invalid udp mode %d\n", eSockMode) ; 
return( -1 ) ; 

} 

memset(pSockAddr, 0, sizeof (*pSockAdd r) ) ; 
pSockAddr->sin_addr.s_addr = INADDR_ANY; 
pSockAddr->sin_family = AF_INET; 

if(sService != NULL){ 

pseService = getservbyname( sService, "udp"); 
if (pseService == NULL){ 

fprintf (stderr, "Can't find udp service \"%s\"\n", sService); 
return(-l) ; 

} 

pSockAddr->sin_port = pseService->s_port ; 

} 

else{ 

hUtil = iPort; 

pSockAddr->sin_port = htons ( hUtil) ; 

} 

iFd = socket(AF_INET, SOCK_DGRAM, 0); 
if (iFd < 0){ 

perror("socket( )" ) ; 

return(-l) ; 

} 

switch(eSockMode){ 
case udpRead: 
case UdpReadWrite: 
iUtil = 1; 

if (setsockopKiFd, SOL_SOCKET, SO_REUSEADDR, &iUtil, sizeof ( iUtil ) ) 
< 0 ) { 

perror( " setsockopt ( ) SOL_SOCKET SO_REUSEADDR" ) ; 
close( iFd ) ; 
return( -1 ) ; 
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} 

#ifdef SO_REUSEPORT 

if (setsockopt(iFd, SOL_SOCKET, SO_REUSEPORT, &iUtil, sizeof ( iUtil ) ) 
< 0 ) { 

perror( " setsockopt ( ) SOL_SOCKET SO_REUSEPORT" ) ; 
close( iFd ) ; 
return( -1 ) ; 

} 

#endif /* SO_REUSEPORT */ 

if (bind(iFd, pSockAddr, sizeof (*pSockAdd r) ) < 0){ 
perror("bind( )" ) ; 
close( iFd ) ; 
return(-l) ; 

} 

if(eSockMode == udpRead){ 
break; 

} 

/*fall-thru for udpReadWrite */ 
case udpWrite: 
break; 



#ifdef WANT_FIONBIO 
cUtil = 1; 

if (ioctKiFd, FIONBIO, &cUtil) < 0){ 
perrorC'ioctlO FIONBIO"); 
close(iFd) ; 
return(-l) ; 

} 

#else /*WANT_FIONBIO*/ 

if( fcntK iFd, F_SETFL, FNDELAY ) < 0 ) { 
perror( "fcntK ) F_SETFL FNDELAY" ) ; 
close(iFd) ; 
return( -1 ) ; 

} 

#endif /*WANT_FIONBIO*/ 
return( iFd) ; 



/* 

* Get a broadcast socket for the given service. 
*/ 



cmSetupBCastSocket ( sService, iPort, sIFAddr, sinterface, eSockMode, 
pSockAddr) 
char *sService; 
int iPort; 
char *sIFAddr; 
char *slnterface; 
enum udpSockMode eSockMode; 
struct sockaddr_in *pSockAddr; 
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Struct hostent *pheHost; 
struct servent *pseService; 
struct in_addr inAddrIF; 
int iFd, iRetVal; 
unsigned char cUtil; 
unsigned short hUtil; 
unsigned int iUtil; 

switch(eSockMode){ 
case udpRead: 
case udpWrite: 
case udpReadWrite: 

break; 
default: 

fprintf( stderr, "Invalid udp mode %d\n", eSockMode) ; 
return( -1 ) ; 

} 

memset(pSockAddr, 0, sizeof (*pSockAdd r) ) ; 
pSockAddr->sin_addr.s_addr = INADDR_ANY; 
pSockAddr->sin_family = AF_INET; 

if(sService != NULL){ 

pseService = getservbyname( sService, "udp"); 
if (pseService == NULL){ 

fprintf (stderr, "Can't find udp service \"%s\"\n", sService); 

return(-l) ; 

} 

pSockAddr->sin_port = pseService->s_port ; 

} 

else{ 

hUtil = iPort; 

pSockAddr->sin_port = htons ( hUtil) ; 

} 

iFd = socket(AF_INET, SOCK_DGRAM, 0); 
if (iFd < 0){ 

perror("socket( )" ) ; 

return(-l) ; 

} 

switch(eSockMode){ 
case udpRead: 
case UdpReadWrite: 
iUtil = 1; 

if (setsockopKiFd, SOL_SOCKET, SO_REUSEADDR, &iUtil, sizeof ( iUtil ) ) 
< 0 ) { 
close( iFd ) ; 

perror( " setsockopt ( ) SOL_SOCKET SO_REUSEADDR" ) ; 
return( -1 ) ; 

} 

#ifdef SO_REUSEPORT 

if (setsockopKiFd, SOL_SOCKET, SO_REUSEPORT, &iUtil, sizeof ( iUtil ) ) 



Page 9 of 18 



udp.c 



7/5/11 11:15 AM 



< 0 ) { 

close( iFd ) ; 

perror( " setsockopt ( ) SOL_SOCKET SO_REUSEPORT" ) ; 
return( -1 ) ; 

} 

#endif /* SO_REUSEPORT */ 

if (bind(iFd, pSockAddr, sizeof (*pSockAdd r) ) < 0){ 
perror("bind( )" ) ; 
close( iFd ) ; 
return(-l) ; 

} 

if(eSockMode == udpRead){ 
break; 

} 

/*fall-thru for udpReadWrite */ 
case udpWrite: 

/* TESTING — pSockAddr->sin_addr.s_addr = INADDR_LOOPBACK; return;*/ 
/*new broadcast method, not yet on our sun4.1*/ 
if( 

#if defined SHASTRA4SGI | | defined SHASTRA4SUN5 | | defined SHASTRA4HP 

sinterface | | sIFAddr 
#else /*SHASTRA4SUN4*/ 

TRUE 

#endif /*SHASTRA4SUN4*/ 
) { 

iRetVal = cmGetBroadcastlnterf ace ( sIFAddr, sinterface, iFd, & 
inAddrIF, 

pSockAddr) ; 

if(iRetVal < 0){ 
close( iFd ) ; 
return( iRetVal ) ; 

} 

if(sService != NULL){ 

pSockAddr->sin_port = pseService->s_port ; 

} 

else{ 

hUtil = iPort; 

pSockAddr->sin_port = htons ( hUtil) ; 

} 

} 

else{ 

pSockAddr->sin_addr.s_addr = INADDR_BROADCAST; 

} 

iUtil = 1; 

if (setsockopt (iFd, SOL_SOCKET, SO_BROADCAST, &iUtil, 
sizeof (iUtil)) < 0){ 
perrorC'setsockoptO SOL_SOCKET SO_BROADCAST" ) ; 
close( iFd ) ; 
return(-l) ; 

} 

break; 
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#ifdef WANT_FIONBIO 
cUtil = 1; 

if (ioctKiFd, FIONBIO, &cUtil) < 0){ 
perrorC'ioctK ) FIONBIO"); 
close(iFd) ; 
return(-l) ; 

} 

#else /*WANT_FIONBIO*/ 

if( fcntK iFd, F_SETFL, FNDELAY ) < 0 ) { 
perror( "fcntK ) F_SETFL FNDELAY" ) ; 
close(iFd) ; 
return( -1 ) ; 

} 

#endif /*WANT_FIONBIO*/ 
return( iFd) ; 



/* 

* Get a multicast socket for the given service. 
*/ 

int 

cmSetupMCastSocket ( sService, iPort, sIFAddr, slnterface, sGrpAddr, 
iTTL, fLoopBack, eSockMode, pSockAddr) 
char *sService; 
int iPort; 
char *sIFAddr; 
char *slnterface; 
char *sGrpAddr; 
int iTTL; 
int fLoopBack; 
enum udpSockMode eSockMode; 
struct sockaddr_in *pSockAddr; 

{ 

#ifdef HAVEMULTICAST 

struct ip_mreq ipMRequest; 
struct in_addr inAddrGrp; 
struct in_addr inAddrIF; 
struct hostent *pheHost; 
struct servent *pseService; 
int iFd, iRetVal, iLen; 
unsigned char cUtil; 
unsigned short hUtil; 
unsigned int iUtil; 

memset (&inAdd rGrp, 0, sizeof ( inAdd rGrp) ) ; 
inAddrGrp. s_addr = inet_addr( sGrpAddr ) ; 
if( !IN_MULTICAST( inAddrGrp. s_addr ) ) { 

fprintf( stderr, "Invalid multicast address: %s\n", sGrpAddr ) ; 

return( -1 ) ; 

} 

switch(eSockMode){ 
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case udpRead: 
case udpWrite: 
case udpReadWrite: 

break; 
default: 

fprintf( stderr, "Invalid udp mode %d\n", eSockMode) ; 
return( -1 ) ; 

} 

memseKpSockAddr, 0, sizeof (*pSockAdd r) ) ; 
pSockAddr->sin_addr.s_addr = INADDR_ANY; 
pSockAddr->sin_family = AF_INET; 

if(sService != NULL){ 

pseService = getservbyname( sService, "udp"); 
if (pseService == NULL){ 

fprintf (stderr, "Can't find udp service \"%s\"\n", sService); 
return(-l) ; 

} 

pSockAddr->sin_port = pseService->s_port ; 

} 

else{ 

hUtil = iPort; 

pSockAddr->sin_port = htons ( hUtil) ; 



iFd = socket(AF_INET, SOCK_DGRAM, 0); 
if (iPd < 0){ 

perror("socket( )" ) ; 

return(-l) ; 

} 

memset (&inAdd rIF, 0, sizeof ( inAdd rIF) ) ; 
inAddrIF.s_addr = INADDR_ANY; 
/*new mcast not yet on suns*/ 
if (sIFAddr | | sinterface) { 

iRetVal = cmGetMulticastlnterf ace( sIFAddr, sinterface, iFd, &inAddrIF) 

if(iRetVal < 0){ 
close( iFd ) ; 
return( iRetVal ) ; 

} 

if( eSockMode == udpWrite){ 

if (setsockopK iFd, IPPROTO_IP, IP_MULTICAST_IF, 
&inAddrIF, sizeof (inAddrIF) ) < 0 ) { 
perror( "setsockopt ( ) IPPROTO_IP, IP_MULTICAST_IF" ) ; 
close( iFd ) ; 
return( -1 ) ; 

} 

} 

} 

switch(eSockMode){ 
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case udpRead: 
case udpReadWrite: 
iUtil = 1; 

if (setsockopt(iFd, SOL_SOCKET, SO_REUSEADDR, &iUtil, sizeof ( iUtil ) ) 

< 0 ) { 
close( iFd ) ; 

perror( " setsockopt ( ) SOL_SOCKET SO_REUSEADDR" ) ; 
return( -1 ) ; 

} 

#ifdef SO_REUSEPORT 

if (setsockopt(iFd, SOL_SOCKET, SO_REUSEPORT, &iUtil, sizeof ( iUtil ) ) 

< 0 ) { 
close( iFd ) ; 

perror( " setsockopt ( ) SOL_SOCKET SO_REUSEPORT" ) ; 
return( -1 ) ; 

} 

#endif /* SO_REUSEPORT */ 

if (bind(iFd, pSockAddr, sizeof (*pSockAdd r) ) < 0){ 
perror("bind( )" ) ; 
close( iFd ) ; 
return(-l) ; 

} 

if(sService == NULL){ 

iLen = sizeof (*pSockAdd r) ; 

if (getsockname(iFd, pSockAddr, &iLen) < 0){ 
perror("getsockname( )") ; 
close(iFd) ; 
return(-l) ; 

} 

} 

#ifdef WANT_STRUCT_ASSIGN 

ipMRequest . imr_multiadd r = inAddrGrp; /*struct assign*/ 
ipMRequest . imr_interf ace = inAddrlF; /*struct assign*/ 
#endif /* WANT_STRUCT_ASSIGN */ 

memcpy (&ipMRequest . imr_multiadd r, &inAdd rGrp, sizeof ( in Add rGrp) ) ; 
memcpy (&ipMRequest . imr_interf ace, &inAddrIF, sizeof ( inAdd rlF) ) ; 
if (setsockopt(iFd, IPPROTO_IP, IP_ADD_MEMBERSHIP, &ipMRequest, 
sizeof (ipMRequest) ) < 0){ 
perror("setsockopt( ) IPPROTO_IP IP_ADD_MEMBERSHIP" ) ; 
close(iFd) ; 
return(-l) ; 

} 

if(eSockMode == udpRead){ 
break; 

} 

/*fall-thru for udpReadWrite */ 
case udpWrite: 

pSockAddr->sin_addr. s_addr = inAddrGrp. s_addr; /*send to group*/ 
cUtil = fLoopBack; 

if (setsockopt(iFd, IPPROTO_IP, IP_MULTICAST_LOOP, &cUtil, 
sizeof (cUtil) ) < 0){ 
perrorC'setsockopt IPPROTO_IP IP_MULTICAST_LOOP" ) ; 
close(iFd) ; 



Page 13 of 18 



udp.c 



7/5/11 11:15 AM 



return(-l) ; 

} 

if ((iTTL <= 0) II (iTTL > SHASTRA_MAX_TTL) ) { 
cUtil = SHASTRA_DEF_TTL; 

} 

else{ 

cUtil = iTTL; 

} 

if (setsockopt(iFd, IPPROTO_IP, IP_MULTICAST_TTL, &cUtil, 
sizeof (cUtil) ) < 0){ 
perrorC'setsockopt IPPROTO_IP IP_MULTICAST_TTL" ) ; 
close( iFd ) ; 
return(-l) ; 

} 

break; 

} 

#ifdef WANT_FIONBIO 
cUtil = 1; 

if (ioctKiFd, FIONBIO, &cUtil) < 0){ 
perrorC'ioctlO FIONBIO"); 
close(iFd) ; 
return(-l) ; 

} 

#else /*WANT_FIONBIO*/ 

if( fcntK iFd, F_SETFL, FNDELAY ) < 0 ) { 
perror( "fcntK ) F_SETFL FNDELAY" ) ; 
close(iFd) ; 
return( -1 ) ; 

} 

#endif /*WANT_FIONBIO*/ 

return( iFd) ; 
#else /*HAVEMULTICAST*/ 

return -1; 
#endif /*HAVEMULTICAST*/ 
} 

/* 

* getMyHostInAddr( ) — Get my own host internet address 
*/ 

int 

cmGetMyHostInAddr(psaInHost ) 

struct sockaddr_in *psaInHost; 

{ 

char sbHost [256] ; 
struct hostent *pheHost; 

#ifdef SHASTRA4SUN5 

if (sysinfo(SI_HOSTNAME, SbHost, sizeof ( sbHost ) ) < 0){ 
fprintf (stderr,"sysinfo( )-> Unknown Host Name!\n"); 
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return(-l) ; 

} 

#else 

if (gethostname( sbHost, sizeof ( sbHost ) ) < 0){ 

fprintf (stderr,"gethostname( )-> Unknown Host Name!\n"); 
return(-l) ; 

} 

#endif 

pheHost = gethostbyname(sbHost) ; 
if (!pheHost){ 

fprintf (stderr,"gethostbyname( )-> Unknown Host %s\n", sbHost); 
return(-l) ; 

} 

psaInHost->sin_f amily = AF_INET; 
psaInHost->sin_port = 0; 

memcpy(&psaInHost->sin_addr, pheHost->h_add r, sizeof ( psaInHost->sin_add r) 
); 

fprintf (stderr, "Host %s, Address:%ld (0x%lx)\n", 

sbHost, psaInHost->sin_addr. s_addr, psaInHost->sin_add r . s_add r) ; 
return(0) ; 

} 



/* 

* sendUDPPacket ( ) — 

*/ 

int 

cmSendUDPPacket ( iFd, sMessage, IMessage, pSockAddr) 
int iFd; 
char * sMessage; 
int IMessage; 
struct sockaddr_in *pSockAddr; 

{ 

int retVal; 

retVal = sendto(iFd, sMessage, IMessage, 0, pSockAddr, sizeof (*pSockAdd r) 
); 

if(retVal < 0){ 

perror("sendto( )") ; 
return -1; 

} 

return retVal; 



/* 

* recvUDPPacket( ) — 
*/ 
int 

cmRecvUDPPacket ( iFd, sMessage, IMaxLen, fIgnoreOwn) 
int iFd; 
char *sMessage; 
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int IMaxLen; 

enum udpPacketMode flgnoreOwn; 

{ 

struct sockaddr_in pFromAddr; 
int lAddr = sizeof ( pFromAdd r) ; 
int IMessage; 

do{ 

IMessage = recvf rom(iFd, sMessage, IMaxLen, 0, &pFromAdd r, &lAddr); 
fprintf (stderr,"cmRecvUDPPacket( )-> ") ; 
if (IMessage < 0){ 

if (errno == EWOULDBLOCK) 
return(0) ; 

else{ 

perror( "cmRecvUDPPacket ( )-> recvf rom( )") ; 
exit(-l) ; 

} 

} 

if (IMessage == 0){ 
break; 

} 

} while ((flgnoreOwn == udpIgnoreOwn) && 

(pFromAddr. sin_addr. s_addr == salnMine . sin_add r . s_add r) ) ; 

return(lMessage) ; 

} 



#ifdef STANDALONE 
int 

cmUdpRecvHandler ( iFd) 
int iFd; 

{ 

char sbBuffer[256] ; 
int IMessage; 

IMessage = cmRecvUDPPacket ( iFd, sbBuffer, 256, udpAcceptOwn) ; 
fprintf ( stdout, "cmUdpRecvHandler( )->recv ' d %d (%s)\n", IMessage, 
SbBuffer) ; 

} 

int 

cmUdpSendHandler(iFd) 
int iFd; 

{ 

extern struct sockaddr_in sockAddr; 
extern int myFD; 

struct sockaddr_in *pSockAddr = &sockAddr; 
char sbBuffer [256] , *slnput; 
int IMessage, ISent; 

sinput = fgets(sbBuffer, 256, stdin); 
if(slnput == NULL){ 
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exit(0) ; 

} 

IMessage = st rlen ( sinput ) ; 
sbBuf fer [IMessage - 1] = '\0'; 

ISent = cmSendUDPPacket(myFD, sbBuffer, IMessage, pSockAdd r) ; 
fprintf (stderr, "cmUdpSendHandler( )->sent %d of %d (%s)\n", 
ISent, IMessage, sbBuffer); 



enum udpCommMode eUDPMode = udpMulticast ; /* default multicast */ 
int myFD; 

struct sockaddr_in sockAddr; 
int 

main(argc, argv) 
int argc; 
char **argv; 

{ 

int cmUdpRecvHandler( ) , cmUdpSendHandler ( ) ; 
(void) cmGetMyHostlnAdd r (&saInMine) ; 

switch(eUDPMode){ 

case udpMulticast: 

myFD = cmSetupMCastSocket (SHASTRA_MCAST_SERVICE, SHASTRA_GUESS_PORT, 
NULL, NULL, SHASTRA_MCAST_ADDR, 
SHASTRA_DEF_TTL, TRUE, udpReadWrite , &sockAddr); 

break; 
case udpBroadcast : 

myFD = cmSetupBCastSocket (SHASTRA_BCAST_SERVICE, SHASTRA_GUESS_PORT, 
NULL, NULL, udpReadWrite, &sockAddr); 

break; 
default: 

case udpUnicast: 

myFD = cmSetupUCastSocket (SHASTRA_UCAST_SERVICE, SHASTRA_GUESS_PORT, 
UdpReadWrite, &sockAddr); 

break; 

} 

if(myFD < 0){ 

fprintf ( stderr, "main( )->couldn ' t set up socket for %s!\n", 
(eUDPMode == udpMulticast ) ?"MULTICAST" : 
(eUDPMode == udpBroadcast ) ?"BROADCAST" : "UNICAST" ) ; 

exit(-l) ; 

} 

mplexInit(NULL, NULL); 

if (mplexRegisterChanneKmyFD, cmUdpRecvHandler, NULL, NULL) < 0 ) { 
fprintf (stderr, "main( )->Couldn 't register Recv Handler ! \n" ) ; 

} 

if (mplexRegisterChannel(0, cmUdpSendHandler, NULL, NULL) < 0) { 
fprintf (stderr, "main( )->Couldn 't register Send Handler ! \n" ) ; 

} 
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cmShowInterf aces (myFD) ; 
mplexMain(NULL) ; 

} 

#endif /*STANDALONE*/ 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <stdlib.h> 
#include <sys/types . h> 
#include <unistd.h> 
#include <pwd.h> 
#ifdef SHASTRA4SUN5 
#include <sys/systeminf o. h> 
char *strdup(char *) ; 
int putenv(char *) ; 
#endif 

#include <sys/errno. h> 
#include <netdb.h> 

#include <X11/Int rinsic . h> 
#include <X11/St ringDef s . h> 
#include <X11/Xutil. h> 

#include <Xm/Text.h> 

#include <shast ra/shast ra . h> 
#include <shast ra/shast raSt at eDefs . h> 

#include <shast ra/utils/list . h> 

#in elude <shastra/uitools/strListUtilities.h> 
#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/chooseMany . h> 
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#in elude <shastra/uitools/confirmCB.h> 

#in elude <shast ra/ network/ server. h> 
#include <shast ra/network/mplex. h> 
#include <shast ra/network/hostMgr . h> 
#include <shast ra/network/sharedMem. h> 

#include <shast ra/datacomm/shast raldH. h> 
#include <shast ra/datacomm/shast raldTagH. h> 

#in elude <shastra/shautils/shautils.h> 
#in elude <shastra/shautils/kernelFronts.h> 
#in elude <shast ra/shautils/sesMg r Fronts P. h> 
#in elude <shast ra/shautils/sesMg rPronts . h> 

#inelude <shast ra/kernel/kernel_server. h> 



#inelude <shast ra/ session/ sesMg r. h> 
#inelude <shastra/session/sesMgrMainCB. h> 
#inelude <shast ra/session/sesMgr_server . h> 
#inelude <shast ra/session/sesMg r_elient . h> 
#inelude <shast ra/session/sesMgrState. h> 

statie ehar *GetShast raBaseDir ( ) ; 
int getCmdLineArgs(Prot2(int, ehar **)); 
statie shaSesMg rAppData sesMg rAppData; 
shaSesMgrAppData *pSesMg rAppData = &sesMg rAppData; 
statie shastrald sesMg rShast raid ; 
shastrald 



shastraldTags 
shastraldTags 
eollabData 
ehar 

#define DEBUG 
int 

extern int 



*pSesMgrSId = &sesMg rShast raid ; 

sesMg rStartldTags ; 
sesMg rStartPermTags; 
*pSesMgrCollData; 
sbOutMsgBuf [1024] ; 

) 

debug = DEBUG; 
errno ; 



kernelPortNum; 
mainKernClntSoeket ; 
kernellPAdd r; 
iKernelFrontlndex; 
iSesMgrFrontlndex; 



int 
int 

unsigned long 
int 
int 

#ifndef SHASTRA4SUN5 
#define MAXNAMELEN 128 
#endif 

ehar kernelHostName [MAXNAMELEN] ; 

ehar kernelUserName [MAXNAMELEN] ; 

ehar kernelHeadHostName [MAXNAMELEN] ; 



shastrald kernelShast raid ; 

shastralds *pShast raFrontlds ; /* fronts eonneeted on kernel */ 
shastraldTags *pShast raFrontldTags ; /* fronts eonneeted on kernel */ 
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shast raldTags *pShast raFrontPerniTags ; /* fronts connected on kernel */ 
sesmFronts *pSesmFrontCD; 

int shast raServerStatus; 

char *shastraPasswd = SHASTRAPASSWORD; 

char *kernelAppName; 

char *kernelDispName; 

char *kernelPasswd ; 

char *kernelCollType; 
unsigned long kernelPerms ; 
unsigned long kernelldTag; 
int kernelFNoGUI; 
int kernelFAutoJoin; 

shaCmdData serverCmdData; 

cmCommand serverCommandTab [ ] = SESMGRCMDS; 

#define NSESMGRCMDS ( sizeof ( serve rCommandTab) /sizeof ( cmCommand ) ) 

/* number of commands */ 

int serverNCmds = NSESMGRCMDS; 

void (*collabTerminateFunc) (); 

void (*collabJoinFunc) (); 

void (*collabLeaveFunc) (); 

void (*collabRemoveFunc) (); 

int shast raServiceSocket ; 

ShaCmdData kernelCmdData; 

cmCommand kernelCmdTab [ ] = SESMGR_CLIENTCMDS; 

#define SESMGR_NCMDS ( sizeof ( kernelCmdTab) /sizeof ( cmCommand ) ) 

int kernelNCmds = SESMGR_NCMDS; 

cmCommand kernellnCmdTab [ ] = SESMGR_CLIENTINCMDS; 

#def ine SESMGR_INNCMDS ( sizeof ( ke rnellnCmdTab ) /sizeof ( cmCommand ) ) 

int kernellnNCmds = SESMGR_INNCMDS; 

hostData hostMainKern; 

hostData *pHostMainKern = &hostMainKern ; 

void 

shastraSesMgrSetupApplResDir( ) 
{ 

char sbName [1024] , *sName; 

sName = resolveNameFromBase(pSesMgrAppData->sDirBase, 
pSesMgrAppData->sDirDef s) ; 
sprintf (sbName, "XAPPLRESDIR=%s", sName) ; 
putenv( sbName) ; 

} 
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Widget 

shastraSmMain(argc, argv, sSMName, wgParent, pCollCmdData ) 
int argc; 
char **argv; 
char *sSMName; 
Widget wgParent; 
shaCmdData *pCollCmdData; 

{ 

char *sName; 

struct hostent *pHostEnt; 

int i; 

Widget wgMainCmdShell; 

extern int closedChannelCleanUpHandler ( ) ; 

uid_t auid; 

struct passwd *apass; 

unsigned int itemp; 

static XtResource xrmResources [] = { 
{ XshaNbaseDirectory, XshaCbaseDirectory, XtRString, sizeof (String) , 
XtOff setOf (shaSesMgrAppData, sDirBase), XtRImmediate, 
(XtPointer)DEFSHASTRABASEDIR }, 
{ XshaNminimal, XshaCminimal, XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (ShaSesMgrAppData, fMinimal), XtRImmediate, (XtPointer) 
False }, 

{ XshaNconnect, XshaCconnect , XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (ShaSesMgrAppData, fConnect), XtRImmediate, (XtPointer)True 
}, 

{ XshaNnoGUI, XshaCnoGUI, XtRBoolean, sizeof ( Boolean ) , 
XtOffsetOf (ShaSesMgrAppData, fNoGUI), XtRImmediate, (XtPointer) False 
}, 

{ XshaNusePixmap, XshaCusePixmap, XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (ShaSesMgrAppData, fPixmap), XtRImmediate, (XtPointer ) False 
}, 

{ XshaNhelp, XshaChelp, XtRBoolean, sizeof (Boolean) , 
XtOffsetOf (ShaSesMgrAppData, fHelp), XtRImmediate, (XtPointer) False } 

{ XshaNservicePort, XshaCservicePort, XtRInt, sizeof (int), 
XtOffsetOf (ShaSesMgrAppData, iSvcPort), XtRImmediate, (XtPointer)0 }, 

{ XshaNshastraPort, XshaCshastraPort, XtRInt, sizeof(int), 
XtOffsetOf (ShaSesMgrAppData, iShaPort), XtRImmediate, (XtPointer)0 }, 

{ XshaNdebugLevel, XshaCdebugLevel, XtRInt, sizeof (int), 
XtOffsetOf (ShaSesMgrAppData, iDbgLevel), XtRImmediate, (XtPointer)0 } 

{ XshaNdef sDirectory, XshaCdef sDirectory, XtRString, sizeof (String) , 

XtOffsetOf (ShaSesMgrAppData, sDirDefs), XtRImmediate, 

(XtPointer)DEFSHASTRADEFSDIR }, 
{ XshaNdataDirectory, XshaCdataDirectory, XtRString, sizeof (String) , 

XtOffsetOf (ShaSesMgrAppData, sDirData), XtRImmediate, 

(XtPointer)DEFSHASTRADATADIR }, 
{ XshaNbinDirectory, XshaCbinDirectory, XtRString, sizeof ( St ring ) , 

XtOffsetOf (ShaSesMgrAppData, sDirBin), XtRImmediate, 

(XtPointer)DEFSHASTRABINDIR }, 
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{ XshaNlogFile, XshaClogFile, XtRString, sizeof (String) , 

XtOff setOf (shaSesMgrAppData, sFileLog), XtRImmediate, 

(XtPointer)DEFSHASTRALOGFILE }, 
{ XshaNhomeFile, XshaChomeFile, XtRString, sizeof (String) , 

XtOffsetOf (ShaSesMgrAppData, sFileHome) , XtRImmediate, 

(XtPointer)DEFSHASTRAHOMEFILE }, 
{ XshaNappsFile, XshaCappsFile, XtRString, sizeof (String) , 

XtOffsetOf (ShaSesMgrAppData, sFileApps), XtRImmediate, 

(XtPointer)DEFSHASTRAAPPSFILE }, 
{ XshaNusersFile, XshaCusersFile, XtRString, sizeof ( St ring ) , 

XtOffsetOf (ShaSesMgrAppData, sFileUsers), XtRImmediate, 

(XtPointer)DEFSHASTRAUSERSFILE }, 
{ XshaNhostsFile, XshaChostsFile, XtRString, sizeof ( St ring ) , 

XtOffsetOf (ShaSesMgrAppData, sFileHosts), XtRImmediate, 

(XtPointer)DEFSHASTRAHOSTSFILE }, 
{ XshaNlocalStarter, XshaClocalSta rter, XtRString, sizeof ( St ring ) , 

XtOffsetOf (ShaSesMgrAppData, sLocStart), XtRImmediate, 

(XtPointer)DEFSHASTRASTARTLOCAL }, 
{ XshaNremoteStarter, XshaCremoteStarter, XtRString, sizeof (String) , 

XtOffsetOf (ShaSesMgrAppData, sRemStart), XtRImmediate, 

(XtPointer)DEFSHASTRASTARTREMOTE }, 
{ XshaNpassword, XshaCpassword, XtRString, sizeof (String) , 

XtOffsetOf (ShaSesMgrAppData, sPasswd), XtRImmediate, 

(XtPointer)DEFSHASTRAPASSWD }, 

}; 

xrmResources [0] .default_addr = GetShast raBaseDir ( ) ; 
XtVaGetApplicationResources (wgParent, 

(XtPointer)&sesMgrAppData, 

xrmResources, XtNumber (xrmResou rces ) , 

/*hardcoded non-overridable app resources vararg list*/ 

XshaNhelp, False, 

XshaNusePixmap, False, 

NULL) ; 

/*sanity checking of resources*/ 



shastraSesMgrSetupApplResDir( ) ; 

pSesMgrAppData->sName = sSMName; 
getCmdLineArgs (argc, argv); 

kernelAppName = pSesMgrAppData->sName;/* store application name */ 
if (kernelDispName == NULL) { 

kernelDispName = XDisplayName(NULL) ; 

} 

if (kernelPasswd == NULL) { 

kernelPasswd = SHASTRAPASSWORD; 

} 

registerlnit ( ) ; 
kernFrontsInit ( ) ; 
sesmFrontsInit ( ) ; 

mplexRegisterErrHandler (closedChannelCleanUpHandler) ; 
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#ifdef SHASTRA4SUN5 

if (sysinfo(SI_HOSTNAME,kernelHostName, MAXNAMELEN) < 0) { 
perrorC'sysinf o( )") ; 

St rcpy( kernelHostName, "anonymous . cs.purdue.edu"); 

} 

#else 

if (gethostname(kernelHostName, MAXNAMELEN) != 0) { 
pe rror( "get host name ( )") ; 

St rcpy( kernelHostName, "anonymous . cs.purdue.edu"); 

} 

#endif 

if ((pHostEnt = gethostbyname(kernelHostName) ) == NULL) { 
pe rror( "get host byname ( )") ; 
return 0; 

} 

memcpy (&itemp, pHostEnt->h_add r_list [0] , sizeof ( unsigned int)); 

kernellPAddr = ntohl(itemp) ; 
/*kernelIPAddr = *(unsigned long *) &pHostEnt->h_add r_list [0] [0] ; */ 

auid = getuid ( ) ; 

apass = getpwuid(auid) ; 

St rcpy( kernelUserName, apass->pw_name) ; 

/* 

* printf("name : %s\n" , kernelHostName) ; 
*/ 

serverCmdData . pCmdTab = serverCommandTab; 
serverCmdData . nCmds = serverNCmds; 
serverCmdData. pCmdTabIn = NULL; 
serverCmdData. nCmdsIn = 0; 

if ( (kernelPortNum = cmOpenServerSocket (TESTSESM_SERVICE_NAME, 0, 
&serverCmdData, &shastraServiceSocket, NULL)) == -1) { 
/* OpenServerSocket registers the handler */ 

f printf ( stderr, "main( )->Server Start-up error!\n Quitting ! \n" ) ; 
exit(-l) ; 

} 

cmJoinCmdData (&serverCmdData, pCollCmdData ) ; 
/* add sesm-specif ic commands to table */ 

getRegisterInf o(&kernelShast raid) ; 

wgMainCmdShell = createMainCmdShell(wgParent) ; 

/* connect to kernel */ 

for (i = 0; i < 3; i++) { /* max 3 tries */ 

shast raServerStatus = cmClientConnect2Server( kernelHostName, 

SHASTRA_SERVICE_NAME, 0, &mainKernClntSocket ) ; 
if ( (shastraServerStatus == -1) && (errno == ECONNREFUSED) ) { 
/* problem., maybe no kernel */ 

sName = resolveNameFrom2Bases ( pSesMg rAppData->sDirBase, 

pSesMg rAppData->sDirBin, pSesMg rAppData->sLocSta rt ) ; 
startShastraKerneK&kernelShastrald, sName) ; 
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} else { 
break; 

} 

} 

if (shastraServerStatus == -1) { 

f printf ( stderr, "mainO — No Server. . Quitting !! \n" ) ; 
exit(-l) ; 

} 

kernelCmdData . pCmdTab = kernelCmdTab; 
kernelCmdData . nCmds = kernelNCmds ; 
kernelCmdData . pCmdTabIn = kernellnCmdTab; 
kernelCmdData . nCmdsIn = kernellnNCmds ; 

pHostMainKern->f dSocket = mainKernClntSocket ; 
pHostMainKern->sendList = listMakeNew( ) ; 
pHostMainKern->recvList = listMakeNew( ) ; 
pHostMainKern->f Status = shaWait2Send ; 

/* register handler */ 

if (mplexRegisterChannel(pHostMainKern->f dSocket, shaClient Handler, 
&kernelCmdData, NULL) == -1) { 
f printf ( stderr, "main( )->Couldn 't Register Client Handler !! \n" ) ; 
pHostMainKern->f Status = shaError; 
return(0) ; 

} 

mplexSetHostData(pHostMainKern->fdSocket, pHostMainKern) ; 
/* after connecting, setting up handler */ 
setShaSesmIdOprn(0) ; /* register ID with MainKernel */ 
/* NOW invite collab participants */ 
fprintf (stderr, "in session manager ! \n" ) ; 

if (sesMgrStartldTags. shastraIdTags_len > 0) { 
collStartTellJoinOprn(0) ; 

for (i = 1; i < sesMg rSta rtldTags . shast raIdTags_len; i++) { 
/* not from 0; 0 is chief of collab */ 
if ( kernelFAutoJoin ) { 

collStartTellJoinOprn(i) ; 

} 

else{ 

collStartInviteJoinOprn( i) ; 

} 

} 

} 

/* identify front index */ 
iSesMg rFrontlndex = 

locateSesmFronts (( shast raldTag *) & kernelShastrald. ISIDTag) ; 
if (iSesMgrProntlndex != -1) { 

fprintf ( stderr, "main( )->locateSesmFronts( ) already has index %d!\ 
n" , 

iSesMgrProntlndex) ; 

} else { 

iSesMgrProntlndex = occupySmPrPreeSlot ( 

(shastraldTag *) & kernelShast raid . ISIDTag ) ; 
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} 

pSesmFrontCD = getSesMg rCntlData ( ( shast raldTag *)& kernelShastrald. 
ISIDTag) ; 

pShast raFrontldTags = getSesmFrontSIdTags( (shastraldTag *) 

& kernelShastrald. ISIDTag) ; 
pShast raProntPermTags = getSesmFrontPermTags (( shast raldTag *) 

& kernelShastrald. ISIDTag) ; 
pSesMg rCollData = (collabData *) malloc(sizeof (collabData) ) ; 
memset (pSesMgrCollData, 0, sizeof (collabData) ) ; 
pSesMg rCollData->pShmInf oOut = shminf oCreate( ) ; 
if (setSesMgrData( (shastraldTag *) & kernelShast raid . ISIDTag, 
(char *) pSesMgrCollData) < 0) { 

f printf ( stderr, "main( )->couldn ' t setSesMg rData ! \n" ) ; 

} 

iKernelFrontlndex = locateKernFronts (&kernelShast raid ) ; 
if (iKernelFrontlndex != -1) { 

f printf ( stderr, "main( )->locateKernFronts( ) already has index %d!\ 
n" , 

iKernelFrontlndex) ; 

} else { 

iKernelFrontlndex = occupyKrFrFreeSlot (&kernelShast raid ) ; 

} 

pShast raFrontlds = getKernFrontSIds(&kernelShastraId) ; 
/* initially empty fronts */ 
pShastraFrontIds->shastraIds_len = 0; 
pShast raFrontIds-> shast ralds_val = 

(shastraId_P *) malloc (mplexGetMaxChannels ( ) * sizeof ( shast raId_P) ) 

pShast raFrontlds = (shastralds *)malloc(sizeof (shastralds) ) ; 
pShastraFrontIds->shastraIds_len = 0; 
pShast raFrontIds->shast ralds_val = 

(shastraId_P *) malloc (mplexGetMaxChannels ( ) * sizeof ( shast raId_P) ) 



if ( rgsbShastraFront != NULL) { 

strListDestroy( rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, PSIDNMHOST | 
PSIDNMAPPL) ; 

chooseOneChangeList (pcoSha St ra Front, rgsbShastraFront, 
coNoInitialHighlight) ; 

return( wgMainCmdShell) ; 



int 

getRegisterInf o( pSId) 

shastrald *pSId; 

{ 

pSId->lIPAddr = kernellPAddr; 
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printf("%lu (%lx) — %s\n", pSId->lIPAdd r, pSId->lIPAdd r, 
ipaddr2str(pSId->lIPAddr) ) ; 

pSId->lSIDTag = ( kernellPAdd r « 16) + getpidO; 
/* for sesMgrs pid+IPAddr is thier tag */ 

pSId->dLoadAvg = 0; 

pSId->nmHost = st rdup( kernelHostName) ; 
pSId->nmDisplay = strdup(kernelDispName) ; 
pSId->nmApplicn = strdup(kernelAppName) ; 
pSId->nmUser = st rdup( kernelUserName) ; 
pSId->webname = strdup( kernelUserName) ; 
pSId->nmPasswd = st rdup ( kernelPasswd ) ; 

pSId->iPort = kernelPortNum; 

pSId->iProcId = getpidO; 

if (debug) { 

outputId(stdout, pSId); 

} 

return(0) ; 

} 

/* 

* Function — 
*/ 
void 

showInfo( s) 

char *s; 

{ 

static XmTextPosition currentPosn; 
outputTextToWidget ( s, wgStatusText, &currentPosn) ; 
/* 

* f printf ( stdout, "%s", s); 

*/ 

} 

int 

cmdLineUsage(argv) 

char **argv; 

{ 

fprintf (stderr, "usage: %s [options ] \n" , argv[0]); 

fprintf (stderr, " where options are:\n"); 

fprintf (stderr, " -display <display name>\n"); 

fprintf (stderr, " -help\n"); 

fprintf ( stderr, " -nogui\n"); 

fprintf (stderr, " -passwd <password>\n" ) ; 

exit(l) ; 

} 

int 
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getCmdLineArgs(argc, argv) 
int argc; 
char **argv; 

{ 

int i; 
int j ; 

/* allocate space for cmdline arg tags */ 
kernelPerms = 0 | 

SHASTRA_PERM_ACCESS | 

SHASTRA_PERM_BROWSE | 

SHASTRA_PERM_MODI FY ; 
sesMg rStartldTags . shast raIdTags_len = 0; 

sesMg rStartldTags . shast raIdTags_val = ( shast raldTag *) malloc( 

sizeof (shastraldTag) * mplexGetMaxChannels ( ) ) ; 
memset ( sesMg rStartldTags . shast raIdTags_val, 0, 

sizeof (shastraldTag) * mplexGetMaxChannels ()) ; 
sesMgrStartPermTags. shastraIdTags_len = 0; 

sesMgrStartPermTags. shastraIdTags_val = (shastraldTag *) malloc( 

sizeof (shastraldTag) * mplexGetMaxChannels ()) ; 
memset ( sesMg rStartPermTags . shast raldTag s_va 1, 0, 

sizeof (shastraldTag) * mplexGetMaxChannels ()) ; 

for (i = 1; i < argc; i++) { 

if ( ! strcmpC'-display", argv[i])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelDispName = argv[i]; 
continue; 

} 

if ( ! strcmp("-help", argv[i])) { 
cmdLineUsage(argv) ; 

} 

if ( ! strcmpC'-nogui" , argv[i])) { 
kernelFNoGUI = 1; 
continue; 

} 

if ( ! strcmp("-auto", argv[i])) { 
kernelFAutoJoin = 1; 
continue; 

} 

if ( ! strcmpC'-idtag" , argv[i])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelldTag = atoi(argv [i] ) ; 
continue; 

} 

if ( ! strcmpC'-perms" , argv[i])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelPerms = atoi(argv [i] ) ; 
continue; 

} 
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if ( ! strcmpC'-passwd", argv[i])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelPasswd = argv[i]; 
continue; 

} 

if ( !strcmp("-tags", argv[i])) { 

for (j = 0; argc > (i + j + 1); j++) { 
/* 

* will fail for negative tags!!, tags 

* shouldn't be negative 
*/ 

if (*argv [i + j + 1] !='-'){ 

sscanf (argv [i + j + 1], "%lu", 

&sesMg rStartldTags . shast raIdTags_val [ j ] ) ; 

} else { 
break; 

} 

} 

sesMgrStartldTags. shastraIdTags_len = j; 

sesMgrStartldTags. shastraIdTags_val = ( shast raldTag *) realloc( 
sesMgrStartldTags . shast raldTag s_va I, 
sizeof (shastraldTag) * j); 

if (debug) { 

outputldTags ( stderr, &sesMgrStartIdTags) ; 

} 

i = i + j; 
continue; 

} 

if ( !strcmp("-type", argv[i])) { 
if (++i >= argc) 

cmdLineUsage(argv) ; 
kernelCollType = argv[i]; 
continue; 

} 

cmdLineUsage(argv) ; 



sesMg rStartPermTags . shast raldTag s_len = 

sesMgrStartldTags . shast raldTag s_len; 
sesMgrStartPermTags. shastraIdTags_val [0] = kernelPerms | 

(SHASTRA_PERM_GRANT | SHASTRA_PERM_COPY) ; 
for (i = 1; i < sesMgrStartldTags. shastraIdTags_len; i++) { 

SesMgrStartPermTags. shastraIdTags_val [i] = kernelPerms; 

} 

SesMgrStartPermTags. shastraIdTags_val = (shastraldTag *) realloc( 
sesMg rStartPermTags . shast raldTag s_va I, 
sizeof (shastraldTag) * sesMgrStartPermTags . shastraIdTags_len) ; 
return(0) ; 



void 

registerCollabTerminateFunc( f unc) 
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void (*func) (); 

{ 

collabTerminateFunc = func; 

} 

void 

registerCollabJoinFunc(f unc) 
void (*func) (); 

{ 

collabJoinFunc = func; 

} 

void 

registerCollabLeaveFunc(f unc) 
void (*func) (); 

{ 

collabLeaveFunc = func; 

} 

void 

registerCollabRemoveFunc(f unc) 
void (*func) (); 

{ 

collabRemoveFunc = func; 

} 



shastrald * 

getMySesMgrShastraId( ) 
{ 

if (pSesMgrAppData){ 

return pSesMg rAppData->pSIdSelf ; 

} 

else{ 

return NULL; 

} 

} 

shaSesMgrAppData * 
getMySesMgrAppData( ) 
{ 

return pSesMg rAppData; 

} 

static char *GetShast raBaseDir ( ) 
{ 

char *dname; 

if (dname = getenvC'SHASTRADIR" ) ) 
{ 

return (dname) ; 

} 

else 
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{ 

dname = strdup(DEFSHASTRABASEDIR) ; 

} 

return (dname) ; 
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**/ 
***/ 



***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 
***/ 

/* 

***/ 

#include <stdio.h> 
#include <sys/errno. h> 

#include <shast ra/utils/list . h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/st rList Utilities . h> 
#include <shast ra/uitools/callbackArg . h> 

#in elude <shast ra/network/ server. h> 
#in elude <shast ra/network/mplex. h> 
#in elude <shast ra/network/hostMg r . h> 

#in elude <shast ra/datacomm/shast raldH. h> 
#in elude <shast ra/datacomm/shast raldTagH. h> 
#inelude <shast ra/datacomm/shast raDataH . h> 

#inelude <shast ra/shautils/shautils . h> 
#include <shast ra/shautils/kernelFronts . h> 
#inelude <shast ra/ s ha ut ils/ sesMg r Front s . h> 

#in elude <shast ra/kernel/kernel_server. h> 

#inelude <shast ra/ session/ sesMg r. h> 
#include <shast ra/session/sesMg r_elient . h> 

#define cheekConn() \ 

if (pHostMainKern->fStatus == shaError) { \ 
fprintf ( stderr, "Connection to Shastra is bad!\n"); \ 



Page 1 of 15 



sesMgr_client.c 



7/5/1 1 2:56 PM 



return; \ 

} 

#define sendReqString(s, arg) \ 

if (hostSendQueuedRequest(pHostMainKern, s, arg) == -1){ \ 
pHostMainKern->f Status = shaError; \ 

fprintf ( stderr, "Error in Sending Shastra Operation Request\n"); \ 
return; \ 



#define Shastraldln(f iledesc, pShald) \ 

if (shastraIdIn(pHostMainKern->fdSocket, pShald) == -1){ \ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
fprintf ( stderr, "Error Receiving SID from Kernel\n"); \ 
return;\ 



#define Shast raldOut ( f iledesc, pShald) \ 

if (shastraIdOut(pHostMainKern->fdSocket, pShald) == -1){ \ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
fprintf ( stderr, "Error Sending SID to Kernel\n"); \ 
return; \ 



#define Shast raldsin ( f iledesc, pShalds) \ 

if (shastraIdsIn(pHostMainKern->fdSocket, pShalds) == -1){ \ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
fprintf ( stderr, "Error Receiving SIDs from Kernel\n"); \ 
return; \ 



#define Shast raldsOut ( f iledesc, pShalds) \ 

if (shastraIdsOut(pHostMainKern->fdSocket, pShalds) == -1){ \ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
fprintf ( stderr, "Error Sending SIDs to Kernel\n"); \ 
return; \ 



#define Shast raldTagIn ( f iledesc, pShaldTag) \ 

if (shastraIdTagIn(pHostMainKern->fdSocket, pShaldTag) == -1){ \ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
fprintf ( stderr, "Error Receiving SIDTag from Kernel\n");\ 
return; \ 



#define Shast raldTagOut ( f iledesc, pShaldTag) \ 

if (shastraIdTagOut(pHostMainKern->fdSocket, pShaldTag) == -1){ \ 
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pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
f printf ( stderr, "Error Sending SIDTag to Kernel\n"); \ 
return; \ 

} 

#define Shast raldTagsIn ( f iledesc, pShaldTags) \ 

if (shastraIdTagsIn(pHostMainKern->fdSocket, pShaldTags) == -1){ \ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 

f printf ( stderr, "Error Receiving SIDTags from Kernel\n");\ 

return;\ 

} 

#define Shast raldTagsOut ( f iledesc, pShaldTags) \ 

if (shastraIdTagsOut(pHostMainKern->fdSocket, pShaldTags) == -1){\ 
pHostMainKern->f Status = shaError;\ 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; \ 
f printf ( stderr, "Error Sending SIDTags to Kernel\n"); \ 
return; \ 

} 

#define Shast raULongIn ( f iledesc, pULong) \ 

if (shaULongIn(pHostMainKern->fdSocket, pULong) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
\ 

f printf ( stderr, "Error Receiving pULong from kernel\n"); \ 
return; \ 

} 

#define Shast raULongOut ( f iledesc, pULong) \ 

if (shaULongOut(pHostMainKern->fdSocket, pULong) == -1){ \ 
pHostMainKern->f Status = shaError; 

closedChannelCleanUpHandler(pHostMainKern->f dSocket ) ; 
\ 

f printf ( stderr, "Error Sending pULong to Kernel\n"); \ 
return; \ 

} 



extern int debug; 
/* 

* Function 
*/ 
void 

endSystemOprn( iObj Index) 

int iObjIndex; 

{ 

shastralds *pSIds; 
shastrald *pSId; 
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pSIds = getKernFrontSIds(&kernelShastraId) ; 
pSId = pSIds->shastraIds_val [iObjIndex] ; 
if (debug) { 

outputId(stdout, pSId); 

} 

if (strcmp(pcbArgPopup->argBuffer, pSId->nmPasswd ) ) { 
/* passwd mismatch */ 

sprintf ( sbOutMsgBuf , "Kill( )->Password Incorrect — Aborted\n"); 

showinf 0 ( sbOutMsgBuf ) ; 

return; 

} 

checkConn( ) ; 

sendReqString(REQ_END_SYSTEM, NULL) ; 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 
cmFlush(pHostMainKern->f dSocket ) ; 

} 

/* 

* Function 
*/ 

void 

setShaSesmldOprn ( i) 
int i; 

{ 

checkConn( ) ; 

sendReqString(REQ_SET_SHASESMID, NULL) ; 
ShastraldOut (pHostMainKern->fdSocket, &kernelShastraId) ; 
printf ("%s\n", pSId2Str(&kernelShastraId, PSIDSHOWALL) ) ; 
cmFlush(pHostMainKern->f dSocket ) ; 

} 

/* 

* Function 
*/ 

void 

setShaSesmFrIdOprn( i) 
int i; 

{ 

checkConn( ) ; 

sendReqString(REQ_SET_SHASESMFRID, NULL) ; 

ShastraIdTagOut(pHostMainKern->fdSocket, & kernelShast raid . ISIDTag ) ; 
Shast raldTagsOut (pHostMainKern->f dSocket, pShast ra Front IdTags ) ; 
ShastraIdTagsOut(pHostMainKern->fdSocket, pShast raFrontPermTags ) ; /* 
perms */ 

cmFlush ( pHostMainKern->f dSocket ) ; 

} 

/* 

* Function 
*/ 

void 
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getShaKernIdOprn( iObj Index) 
int iObjIndex; 

{ 

checkConn( ) ; 

sendReqString(REQ_GET_SHAKERNID, NULL) ; 
cmFlush(pHostMainKern->f dSocket ) ; 

} 



/* 

* Function 
*/ 

void 

getShaKernFrIdOprn(iObj Index) 
int iObjIndex; 

{ 

shastrald *pSId; 
checkConn( ) ; 

sendReqString(REQ_GET_SHAKERNFRID, NULL) ; 
pSId = shastraKernIds.shastraIds_val[iObjIndex] ; 
ShastraIdOut(pHostMainKern->fdSocket, pSId) ; 
cmFlush ( pHostMainKern->fd Socket ) ; 

} 

/* 

* Function 
*/ 

void 

getShaSesmIdOprn( iObj Index) 
int iObjIndex; 

{ 

checkConn( ) ; 

sendReqString(REQ_GET_SHASESMID, NULL) ; 
cmFlush ( pHostMainKern->fd Socket ) ; 

} 

/* 

* Function 
*/ 

void 

getShaSesmFrIdOprn( iObj Index) 
int iObjIndex; 

{ 

shastraldTag *pSIdTag; 

pSIdTag = & shast raSesmlds . shast ralds_val [iObj Index] ->lSIDTag ; 
if (*pSIdTag == kernelShast raid . ISIDTag ) { 

/* don't want to send request for myself */ 

return; 

} 

checkConn( ) ; 
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sendReqString(REQ_GET_SHASESMFRID, (char*) NULL); 
ShastraIdTagOut(pHostMainKern->fdSocket, pSIdTag) ; 
printf ("%s\n", pSIdTag2Str(pSIdTag, 0)); 
cmFlush(pHostMainKern->f dSocket ) ; 



/* 

* Function 
*/ 
void 

col ISt art Invite J oinOp rn ( iObj Index) 
int iObjIndex; 

{ 

/* works off the start list */ 
checkConn( ) ; 
fprintf (stderr, "Invite Join!\n"); 

sendReqString(REQ_COLL_INVITEJOIN, NULL) ; 

ShastraldTagOut (pHostMainKern->fdSocket, & kernelShast raid . ISIDTag ) 

Shast raldTagOut (pHostMainKern->f dSocket, 

&sesMgrStartIdTags. shast raIdTags_val [iObj Index] ) ; 

Shast raldTagOut ( pHostMainKern->f dSocket , 

&sesMgrStartIdTags. shast raIdTags_val [0] ) ; /*leader*/ 

Shast raldTagOut ( pHostMainKern->f dSocket , 

&sesMgrStartPermTags. shast raIdTags_val [iObj Index] ) ; 

cmFlush ( pHo s tMa in Kern->f dSocket ) ; 



/* 

* Function 
*/ 
void 

collStartTellJoinOprn ( iObj Index) 
int iObjIndex; 

{ 

/* works off the start list */ 
checkConn( ) ; 

fprintf (stderr, "IN session manager Sending: RE0_COLL_TELL_JOIN\n" ) ; 
sendReqString(RE0_COLL_TELLJOIN, NULL) ; 

ShastraIdTagOut(pHostMainKern->fdSocket, & kernelShast raid . ISIDTag ) ; 
Shast raldTagOut (pHos tMa inKern->f dSocket, 

&sesMgrStartIdTags. shast raIdTags_val [iObjIndex] ) ; 
Shast raldTagOut (pHos tMa inKern->f dSocket, 

&sesMgrStartPermTags. shast raIdTags_val [iObjIndex] ) ; 
cmFlush ( pHo s tMa in Kern->f dSocket ) ; 



/* 

* Function 
*/ 
void 



Page 6 of 15 



sesMgr_client.c 



7/5/1 1 2:56 PM 



collTellJoinOprn(pSmSIdTag, pSIdTag, pPermTag) 
shast raldTag *pSmSIdTag ; 
shast raldTag *pSIdTag; 
shast raldTag *pPermTag; 

{ 

checkConn( ) ; 

sendReqString(REQ_COLL_TELLJOIN, NULL) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSmSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pSIdTag) ; 
ShastraIdTagOut(pHostKernel->fdSocket, pPermTag) ; 
cmFlush ( pHostMainKern->fd Socket ) ; 



/* 

* Function 
*/ 
void 

helpOprn( iObj Index) 

int iObjIndex; 

{ 

checkConn( ) ; 

sendReqString(REQ_HELP, NULL); 
cmFlush ( pHostMainKern->fd Socket ) ; 



/* 

* Function 
*/ 
void 

quitOprn( iObj Index) 

int iObjIndex; 

{ 

extern collabData *pSesMg rCollData; 

if ( pHostMainKern->f Status != shaError) { 
sendReqString(REQ_QUIT, NULL); 
cmFlush ( pHostMainKern->fd Socket ) ; 

} 

shMemFree( pSesMg rCollData->pShmInf oOut ) ; 
mplexUnRegisterChanneK pHostMainKern->f dSocket ) ; 
exit(0) ; 



/* 

* Function 
*/ 
int 

endSystemRespHandler( f d) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_END_SYSTEM) ; 
showinf o( sbOutMsgBuf ) ; 
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/* 

* Function 
*/ 

int 

getShastraldRespHandler(fd) 
int fd; 

{ 

Shastraldsln(fd, &shast raSysIds ) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SHASTRAID) ; 
showinf o( sbOutMsgBuif) ; 
if (debug) { 

outputlds ( stderr, &shast raSysIds ) ; 

} 

if ( rgsbShastraSys != NULL) { 

St rList Destroy! rgsbShastraSys) ; 

} 

rgsbShastraSys = pSIds2StrTab(&shastraSysIds, PSIDSHOWALL) ; 
chooseOneChangeList (pcoShast raSys, rgsbShastraSys, 
coNoInitialHighlight ) ; 

} 

/* 

* Function 
*/ 

int 

getShaKernldRespHandler(fd) 
int fd; 

{ 

Shastraldsln(fd, &shast raKernlds ) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_GET_SHAKERNID) ; 
showInfo( SbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, &shast raKernlds ) ; 

} 

if ( rgsbShastraKern != NULL) { 

strListDestroy( rgsbShastraKern) ; 

} 

rgsbShastraKern = pSIds2StrTab(&shastraKernIds, PSIDNMHOST) ; 
ChooseOneChangeList (pcoShast raKern, rgsbShastraKern, 
coNoInitialHighlight) ; 

ad j ustKrFrMapSize( shast raKernlds . shast ralds_len) ; 
/* update map */ 
updateKrFrMap(&shastraKernIds) ; 



/* 

* Function 
*/ 
int 
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getShaKernFrldRespHandler(fd) 
int fd; 

{ 

int iObjIndex; 
static shastrald inShald; 
static shastralds inShalds; 
shastralds *pSIds; 
int krlndex; 

Shastraldln(fd, &inShaId); 

krlndex = locateKernFronts (&inShaId ) ; 

if (krlndex == -1) { 

f printf ( stderr, "getShaKernFrIdRespHandler( )->can ' t locate kernel\ 
n"); 

Shastraldsln(fd, &inShaIds); 
return -1; 

} 

pSIds = getKernFrontSIds(&inShaId) ; 
Shastraldsln(fd, pSIds); 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_GET_SHAKERNFRID) ; 
showinf o( sbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, pSIds); 

} 

} 



/* 

* Function 
*/ 
int 

getShaSesmIdRespHandler(f d) 
int fd; 

{ 

Shastraldsln(fd, &shast raSesmlds ) ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_GET_SHASESMID) ; 
showinf o( SbOutMsgBuf ) ; 
if (debug) { 

outputlds ( stderr, &shast raSesmlds ) ; 

} 

if ( rgsbShastraSesMgr != NULL) { 

strListDestroy( rgsbShastraSesMgr) ; 

} 

rgsbShastraSesMgr = pSIds2StrTab(&shastraSesmIds, PSIDNMHOST) ; 
chooseOneChangeList (pcoShastraSesMgr, rgsbShastraSesMgr, 

coNoInitialHighlight ) ; 
ad j ustSmFrMapSize( shast raSesmlds . shast ralds_len) ; 
/* update map */ 
updateSmFrMap(&shastraSesmIds) ; 



/* 
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* Function 
*/ 
int 

setShaSesmldRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SET_SHASESMID) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 
*/ 

int 

getShaSesmFrIdRespHandler(f d) 
int fd; 

{ 

int smindex; 
static shastraldTag inShaldTag; 
static shastraldTags inShaldTags ; 
shast raldTags *pSIdTags; 
shastraldTags *pPermTags; 

Shast raldTagln ( fd , &inShaIdTag ) ; 

if (inShaldTag == kernelShast raid . ISIDTag ) { 

/* don't want to accept info of myself */ 

ShastraIdTagsIn(fd, &inShaIdTags ) ; /* tags */ 

ShastraIdTagsIn(fd, &inShaIdTags ) ; /* perms */ 

return 0; 

} 

smindex = locateSesmFronts (&inShaIdTag ) ; 
/* vaildity check */ 
if (smindex == -1) { 

f printf ( stderr, "getShaSesmFrIdRespHandler( )->can ' t locate sesMgr!\ 
n"); 

ShastraIdTagsIn(fd, &inShaIdTags ) ; /* tags */ 
ShastraIdTagsIn(fd, &inShaIdTags ) ; /* perms */ 
return -1; 

} 

pSIdTags = getSesmFrontSIdTags (&inShaIdTag ) ; 
ShastraIdTagsIn(fd, pSIdTags); 
pPermTags = getSesmFrontPermTags (&inShaIdTag ) ; 
ShastraIdTagsIn(fd, pPermTags); 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_GET_SHASESMFRID) ; 
showinf o( SbOutMsgBuf ) ; 
if (debug) { 

outputldTags ( stderr, pSIdTags); 

outputldTags ( stderr, pPermTags); 

} 

} 

/* 

* Function 
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*/ 

int 

setShaSesmFrldRespHandler(fd) 
int fd; 

{ 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SHASESMFRID) ; 
showinf o( sbOutMsgBuf ) ; 

} 



/* 

* Function 
*/ 

int 

helpRespHandler(fd) 

int fd; 

{ 

standardHelpRespHandler(fd) ; 

/* actually receive help info */ 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_HELP) ; 

showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

quit Res pHandler(fd) 

int fd; 

{ 

sprintf (SbOutMsgBuf , "Done — %s\n", REO_OUIT) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collInviteJoinRespHandler ( f d ) 
int fd; 

{ 

sprintf (SbOutMsgBuf , "Done— %s\n", RE0_COLL_INVITEJOIN) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collTellJoinRespHandler(fd) 
int fd; 

{ 

sprintf (SbOutMsgBuf , "Done— %s\n", RE0_COLL_TELLJOIN) ; 
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showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collTellJnRespHandler(fd) 
int fd; 

{ 

shast raldTag sIdTag; 
shast raldTag smSIdTag; 
shastrald *pSId; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &sIdTag); 

pSId = getSIdByTagInSIds(&sIdTag, pShast raProntlds ) ; 
if (pSId == NULL) { 

f printf ( stderr, "collTellJoinHandler( )-> no such client !! \n" ) ; 

return; 

} 

outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

f printf ( stderr, "collTellJoinHandler( )-> no channel for client! !\n" 
); 

return; 

} 

putCollTellJoinHandler(outFd, &smSIdTag, &sIdTag); 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_COLL_TELLJOIN) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collAskJnRespHandler(f d) 
int fd; 

{ 

shastraldTag sIdTag; 
shastraldTag smSIdTag; 
shastraldTag permsTag; 
shastrald *pSId; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &sIdTag); 
permsTag = 0xff; 
/* 

* pSIdTagHead = &sesMgrStartIdTags. shastraIdTags_val [0] ; pSIdTagHead 
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* = &pShast raFrontIds->shast ralds_val [0] ->lSIDTag ; 
*/ 

/* CHECK actually explicitly store the head honcho */ 
if (pShastraFrontIds->shastraIds_len == 0) { 

collTellJoinOprn(&smSIdTag, &sIdTag, &permsTag); 
} else { /* have someone */ 

pSId = pShastraFrontIds->shastraIds_val [0] ; 

outFd = shaFrontId2Fd(pSId) ; 

if (outFd == -1) { 

f printf ( stderr, "collAskJnHandler( )-> no channel for client! !\ 



} 



return; 

} 

putCollAskJoinHandler(outFd, &smSIdTag, &sIdTag); 



} 



sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COLL_ASKJOIN ) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 

int collAskJoinMsgRespHandler ( f d ) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 

shastraldTag smSIdTag; 

shastraldTag sIdTag; 

shastraldTag toSIdTag; 

shastrald *pSId; 

char *sMsg; 

int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveSt ring ( f d ) ; 
/*handle*/ 

if (pShastraFrontIds->shastraIds_len != 0) { 
pSId = pShastraFrontIds->shastraIds_val [0] ; 
toSIdTag = pSId->lSIDTag ; 
switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collAskJoinMsgRespHandler( )") ){ 
case route_FRONT: 

putCollAskJoinMsgHandler(outFd, &smSIdTag, &sIdTag, sMsg); 
break; 

case route_ERROR: 

default: 

break; 

} 
} 

sprintf (SbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJOINMSG) ; 
showinf o( SbOutMsgBuf ) ; 
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/* 

* Function 

*/ 

int collAskJnRespMsgRespHandler(f d) 
int fd; 

{ 

/* receive sesm idtag, display recvd message */ 

shast raldTag smSIdTag; 

shast raldTag sIdTag; 

shast raldTag toSIdTag; 

shastrald *pSId; 

char *sMsg; 

int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
/*handle*/ 

if (pShastraFrontIds->shastraIds_len != 0) { 
pSId = pShastraFrontIds->shastraIds_val [0] ; 
toSIdTag = pSId->lSIDTag ; 
switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collAskJnRespMsgRespHandler( )") ){ 
case route_FRONT: 

putCollAskJnRespMsgHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 
} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJNRESPMSG) 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 

*/ 

int collAskJnStatusRespHandler(f d ) 
int fd; 

{ 



/* receive sesm idtag, display recvd status */ 

shastraldTag smSIdTag; 

shastraldTag sIdTag; 

shastraldTag toSIdTag; 

shastrald *pSId; 

shaULong IStatus; 

int outFd; 

ShastraIdTagIn(fd, &smSIdTag); 
ShastraIdTagIn(fd, &toSIdTag); 
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ShastraIdTagIn(fd, &sIdTag); 
ShastraULongIn(fd, &lStatus); 
/*handle*/ 

if (pShastraFrontIds->shastraIds_len != 0) { 
pSId = pShastraFrontIds->shastraIds_val [0] ; 
toSIdTag = pSId->lSIDTag ; 
switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collAskJnStatusRespHandler( )") ){ 
case route_FRONT: 

putCollAskJnStatusHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, IStatus); 

break; 

case route_ERROR: 

default: 

break; 

} 
} 

sprintf (sbOutMsgBuf , "Done (in) — %s\n", REQ_COLL_ASKJNSTATUS) ; 
showinf o( sbOutMsgBuf ) ; 
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**/ 
***/ 



***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 
***/ 

/* 

***/ 

#include <stdio.h> 
#include <sys/errno. h> 

#include <shast ra/shast ra . h> 

#include <shast ra/utils/hash . h> 

#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/chooseMany . h> 
#in elude <shastra/uitools/callbackArg.h> 

#in elude <shast ra/network/ server. h> 
#in elude <shast ra/network/mplex. h> 
#in elude <shast ra/network/hostMg r . h> 
#in elude <shast ra/network/sharedMem. h> 

#inelude <shast ra/datacomm/shast raDataH . h> 
#inelude <shast ra/datacomm/shast raldH. h> 
#inelude <shast ra/datacomm/shast raldTagH. h> 
#inelude <shast ra/datacomm/videoImgH. h> 
#inelude <shast ra/datacomm/audioBiteH. h> 
#in elude <shast ra/datacomm/pietDataH. h> 
#in elude <shast ra/dataeomm/xsCntlDataH. h> 
#in elude <shast ra/dataeomm/ipimage. h> 

#in elude <shastra/shautils/shautils.h> 
#in elude <shastra/shautils/kernelFronts.h> 
#include <shast ra/shautils/sesMg rFrontsP. h> 
#inelude <shast ra/ s ha ut ils/ sesMg r Front s . h> 
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#include <shast ra/ session/ sesMg r. h> 
#in elude <shastra/session/sesMgrMainCB. h> 
#include <shast ra/session/sesMgr_server. h> 
#include <shast ra/session/sesMg r_client . h> 

#define USESHAREDMEM 

extern int debug; 

extern collabData *pSesMg rCollData; 

extern sesmFronts *pSesmFrontCD; 

collabCommData *pTextCommData; 



#define putStringOnChanneKf iledesc, reqstr, funcstr) \ 
if (cmSendString(f iledesc, reqstr) == -1) { \ 

f printf ( stderr, "%s : Error Sending to %d\n", funcstr, filedesc); 
\ 

closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define sendDataString(fd, s) \ 
if (cmSendString(fd, s) == -1){ \ 

f printf ( stderr, "Error in Sending Operation Data\n"); \ 
closedChannelCleanUpHandler(fd) ; \ 

return; \ 



#define Shast raldin ( filedesc, pShald) \ 
if (shastraldln(filedesc, pShald) == -1){ \ 

f printf ( stderr, "Error Receiving SID from %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define Shast raldOut ( filedesc, pShald) \ 
if (shastraldOuKfiledesc, pShald) == -1){ \ 

f printf ( stderr, "Error Sending SID to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define Shast raldsin ( filedesc, pShalds) \ 
if (shastraldsln(f iledesc, pShalds) == -1){ \ 

f printf ( stderr, "Error Receiving SIDs from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define Shast raldsOut ( filedesc, pShalds) \ 
if (shastraldsOuKfiledesc, pShalds) == -1){ \ 

f printf ( stderr, "Error Sending SIDs to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
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return; 

} 



#define Shast raldTagIn ( f iledesc, pShaldTag) \ 
if (shastraIdTagIn(filedesc, pShaldTag) == -1){ \ 

f printf ( stderr, "Error Receiving SID from %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define Shast raldTagOut ( filedesc, pShaldTag) \ 
if (shastraldTagOuKfiledesc, pShaldTag) == -1){ \ 

f printf ( stderr, "Error Sending SID to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define Shast raldTagsIn ( filedesc, pShaldTags) \ 
if (shastraIdTagsIn(f iledesc, pShaldTags) == -1){ \ 

f printf ( stderr, "Error Receiving SIDs from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define ShastraldTagsOuKf iledesc, pShaldTags) \ 
if (shastraldTagsOuKf iledesc, pShaldTags) == -1){ \ 

f printf ( stderr, "Error Sending SIDs to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define VideoImgIn(f iledesc, pVImg) \ 
if (videolmgin ( filedesc, pVImg) == -1){ \ 

f printf ( stderr, "Error Receiving VImg from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define VideoImgOut ( filedesc, pVImg) \ 
if (videolmg0ut(f iledesc, pVImg) == -1){ \ 

f printf ( stderr, "Error Sending VImg to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define AudioBiteIn ( filedesc, pABite) \ 
if (audioBiteIn(f iledesc, pABite) == -1){ \ 

f printf ( stderr, "Error Receiving ABite from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 
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#define AudioBiteOut ( f iledesc, pABite) \ 
if (audioBiteOut(f iledesc, pABite) == -1){ \ 

f printf ( stderr, "Error Sending ABite to %d\n" 
closedChannelCleanUpHandler(f iledesc) ; 
return; 

} 



f iledesc) ; 



#define ImageDataIn ( f iledesc, pimage) \ 
if (ipimageDataIn(f iledesc, pimage) == -1){ \ 

f printf ( stderr, "Error Receiving image from %d\n", 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 



f iledesc); \ 



#define ImageDataOut ( f iledesc, pimage) \ 
if (ipimageDataOuKfiledesc, pimage) == -1){ \ 

f printf ( stderr, "Error Sending image to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 



#define Shast raULongOut ( filedesc, pULong) \ 
if (shaULongOuKfiledesc, pULong) == -1){ \ 

f printf ( stderr, "Error Sending pULong to %d\n" 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; 

} 



filedesc) ; 



#define Shast raULongIn ( filedesc, pULong) \ 
if (shaULongIn(filedesc, pULong) == -1){ \ 

f printf ( stderr, "Error Receiving pULong from %d\n" 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 



filedesc) ; 



#define Shast ralntOut ( filedesc, pint) \ 
if (shalntOuKfiledesc, pint) == -1){ \ 

f printf ( stderr, "Error Sending pint to %d\n" 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; 

} 



filedesc) ; 



#define Shast ralntin ( filedesc, pint) \ 
if (shalntln(filedesc, pint) == -1){ \ 

f printf ( stderr, "Error Receiving pint from %d\n", filedesc); 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 



#define PictDataBitesIn ( filedesc, pPCDatas) \ 
if (pictPiecesIn(f iledesc, pPCDatas) == -1){ \ 

f printf ( stderr, "Error Receiving PCDatas from %d\n" 



filedesc); \ 
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closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define PictDataBitesOut(f iledesc, pPCDatas) \ 
if (pictPiecesOut(f iledesc, pPCDatas) == -1){ \ 

f printf ( stderr, "Error Sending PCDatas to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define XSCntlBitesIn ( filedesc, pXSCDatas) \ 
if (xsCntlDatasIn(filedesc, pXSCDatas) == -1){ \ 

f printf ( stderr, "Error Receiving XSCDatas from %d\n", filedesc); 
\ 

closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define XSCntlBitesOut ( filedesc, pXSCDatas) \ 
if (xsCntlDatasOuKfiledesc, pXSCDatas) == -1){ \ 

f printf ( stderr, "Error Sending XSCDatas to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define PntrBiteIn(f iledesc, pABite) \ 
if (shaDoublesIn(f iledesc, pABite) == -1){ \ 

f printf ( stderr, "Error Receiving PntrB from %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define Pnt rBiteOut ( filedesc, pABite) \ 
if (shaDoublesOuKf iledesc, pABite) == -1){ \ 

f printf ( stderr, "Error Sending PntrB to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define CursorBiteIn(f iledesc, pABite) \ 
if (shaDoublesIn(f iledesc, pABite) == -1){ \ 

f printf ( stderr, "Error Receiving CursorB from %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 

#define CursorBiteOut (filedesc, pABite) \ 
if (shaDoublesOuKf iledesc, pABite) == -1){ \ 

f printf ( stderr, "Error Sending CursorB to %d\n", filedesc); \ 
closedChannelCleanUpHandler(f iledesc) ; \ 
return; \ 

} 
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shaRouteMode 

routeFrontSIdTagToFd ( pSIdTag, pFd, nmPunc) 
shast raldTag *pSIdTag; 
int *pFd; 
char *nmFunc; 

{ 

shastrald *pSId; 
int outFd = -1; 

ShaRouteMode retVal = route_ERROR; 

pSId = getSIdByTagInSIds(pSIdTag, pShast raFrontlds ) ; 
if (pSId == NULL) { 

sprintf ( sbOutMsgBuf , "%s->Unknown IDTag — Aborted\n", nmFunc); 

showinf o( sbOutMsgBuf ) ; 

return retVal; 

} 

outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

sprintf ( SbOutMsgBuf , "%s->Unknown Front — Aborted\n", nmFunc); 

showinf o( SbOutMsgBuf ) ; 

return retVal; 

} 

else{ 

retVal = route_FRONT; 

} 

*pFd = outFd; 
return retVal; 



helpHandler(fd) 
int 



int 
char 



buf [512] ; 



cmAckOk(fd) ; 

sprintf (buf, "%d\n", serverNCmds) ; 
putStringOnChanneKfd, buf, "helpHandler( ) " ) ; 
for (i = 0; i < serverNCmds; i++) { 

sprintf (buf, "%s — %s\n", serverCommandTab [i] . command, 
serve rCommandTab [i] . helpmsg) ; 

putStringOnChanneKfd, buf, "helpHandler ( ) " ) ; 

} 

cmFlush(fd) ; 

sprintf (SbOutMsgBuf , "Done ~ %s\n", REO_HELP) ; 
showinf o( SbOutMsgBuf ) ; 

} 
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terminateHandler( f d ) 
int fd; 

{ 

char *buf; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_TERMINATE) ; 
showinf o( sbOutMsgBuf ) ; 
quitOprn(0) ; 



collTerminateHandler( f d ) 
int fd; 

{ 

int i; 

cmAckOk(fd) ; 
cmFlush(fd) ; 

{ 

int *pfd; 
int nfd; 

getKrFDsBCast (&pf d, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollLeaveHandler, NULL); 
f or( i=0 ; i<nf d ; i++) { 

localShaIdIn[pfd[i]] .ISIDTag = 0; 

} 

} 

sleep(2) ; 
quitOprn(0) ; 
return 0; 

updateShaFrontlds (pSha St ra Front Ids) ; 

krFrSIds2SIdTags ( pShast raFrontlds, pShast raFrontldTags ) ; 
krFrSIds2PermTags (pShastraFrontlds, pShast raFrontPermTags ) ; 

if ( rgsbShastraFront != NULL) { 

St rList Destroy! rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, PSIDNMHOST | 
PSIDNMAPPL) ; 

chooseOneChangeList (pcoSha St ra Front, rgsbShastraFront, 
coNoInitialHighlight) ; 

if (collabTerminateFunc != NULL) { 
(*collabTerminateFunc) (); 

} 

setShaSesmFrIdOprn(0) ; 
sleep(2) ; 
quitOprn(0) ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_COLL_TERMINATE) ; 
showinf o( SbOutMsgBuf ) ; 
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} 



collRemoveHandler( f d ) 
int f 

{ 



fd; 



int ( 
shastrald *f 



outFd; 
*pSId ; 



shast raldTag sIdTag; 

ShastraIdTagIn(fd, &sIdTag); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSId = getSIdByTaglnSIds (&sIdTag, pShast raFrontlds ) ; 
if (pSId == NULL) { 

f printf ( stderr, "collRemoveHandler( )-> no such client !! \n" ) ; 
return; 



outFd = shaFrontId2Fd(pSId) ; 
if (outFd == -1) { 

f printf ( stderr, "collRemoveHandler( )-> no channel for client !! \n" ) ; 
return; 



putCollLeaveHandler(outFd) ; 

collLeaveCleanUpHandler (outFd ) ; 
shaKernFlags [outFd] = 0; 
localShaIdIn[outFd] .ISIDTag = 0; 
updateShaFrontlds (pSha St raFrontlds ) ; 

if (collabRemoveFunc != NULL) { 
(*collabRemoveFunc) (); 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COLL_REMOVE) ; 
showinf o( sbOutMsgBuf ) ; 



ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &sIdTag); 
ShastraIdTagIn(fd, &permsTag ) ; 

cmAckOk(fd) ; 
cmFlush(fd) ; 



} 



} 



} 



collTellJoinHandler(fd) 
int fd; 

{ 



shastraldTag sIdTag; 

shastraldTag smSIdTag; 

shastraldTag permsTag; 

shastrald *pSId; 

int outFd; 
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collTellJoinOprn(&smSIdTag, &sIdTag, &permsTag); 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COLL_TELLJOIN) ; 
showinf o( sbOutMsgBuf ) ; 

} 

collJoinHandler(fd) 

int fd; 

{ 

shastrald *pSId; 

extern shast raldTags *pShast raFrontldTags ; 
extern unsigned long kernelldTag; 
collabFrontData *pCollFrData; 

pSId = &localShaIdIn[fd] ; 
shaKernFlags [fd] = SHAFRONT; 
Shastraldln(fd, pSId); 
if (debug) { 

outputId(stderr, pSId); 

} 

updateShaFrontlds (pSha St ra Front Ids) ; 

krFrSIds2SIdTags ( pShast raFrontlds, pShast raFrontldTags ) ; 
krFrSIds2PermTags (pShastraFrontlds, pShast raFrontPermTags ) ; 

if (occupySmFrFrontFreeSlot ( & kernelShastrald. ISIDTag, 
& pSId->lSIDTag) < 0) { 
f print f( stderr, "collJoinHandler ( )->couldn ' t 
OccupySmFrFrontFreeSlot ! \n" ) ; 

} 

pCollFrData = (collabFrontData *) malloc(sizeof (collabFrontData) ) ; 
memset (pCollFrData, 0, sizeof (collabFrontData) ) ; 
if (getSesMgrFrontData( 

& kernelShastrald. ISIDTag, 
& pSId->lSIDTag) != NULL) { 
fprintf( stderr, "collJoinHandler( )->warning . . has SesMg rFrontData ! \ 
n"); 

} 

if (setSesMgrFrontData( & kernelShastrald. ISIDTag, 
& pSId->lSIDTag, (char *) pCollFrData) < 0) { 
f print f( stderr, "collJoinHandler ( )->couldn ' t set SesMg rFrontData ! \n" 
); 

} 

if ( rgsbShastraFront != NULL) { 

strListDestroy( rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, PSIDNMHOST | 
PSIDNMAPPL) ; 

chooseOneChangeList (pcoSha St ra Front, rgsbShastraFront, 
coNoInitialHighlight ) ; 

setShaSesmFrIdOprn(0) ; 
sleep( 1) ; 
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/* 

if (pSId->lSIDTag == sesMg rSta rtldTags . shast raIdTags_val [0] ) 

*/ 

if (pSId->lSIDTag == pShast raFrontIdTags->shast raIdTags_val [0] ) 
{ 

putCollTellLeaderHandler(fd, &kernelShastraId. ISIDTag, 
&pSId->lSIDTag, &kernelIdTag ) ; 

} 

cmAckOk(fd) ; 
cmFlush(fd) ; 
#ifdef WANTTHIS 

putShaSesmFrIdHandler(fd, & kernelShastrald. ISIDTag) ; 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putShaSesmFrldHandler, 
(char *) &kernelShastraId. ISIDTag) ; 

} 

#endif /* WANTTHIS */ 

if (collabJoinFunc != NULL) { 
(*collabJoinFunc) (); 

} 

sprintf (sbOutMsgBuf , "Done~%s\n", REQ_COLL_JOIN) ; 
showinf o( sbOutMsgBuf ) ; 



collLeaveHandler(fd) 
int fd; 

{ 

collLeaveCleanUpHandler(fd) ; 

} 

collLeaveCleanUpHandler(f d) 
int fd; 

{ 

int fKern; 

extern shast raldTags *pShast raFrontldTags ; 
shastrald *pSId; 
collabFrontData *pCollFrData; 

pSId = &localShaIdIn [fd] ; 
shMemDisconnect(mplexInShmInfo(fd) ) ; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 
& kernelShastrald . ISIDTag, 
& pSId->lSIDTag) ; 
if (pCollFrData != NULL) { 
int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
if (pCollFrData->fTextState == COMM_STARTED) { 
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cmMultiCast ( pf d , nfd, putCollEndTextHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fAudioState == COMM_STARTED) { 
cmMultiCast (pfd, nfd, putCollEndAudioHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fVideoState == COMM_STARTED) { 
cmMultiCast (pfd, nfd, putCollEndVideoHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fPolyState == COMM_STARTED) { 
cmMultiCasKpfd, nfd, putCollEndPolyHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fXSCntlState == COMM_STARTED) { 
cmMultiCasKpfd, nfd, putCollEndXSCntlHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fPntrState == COMM_STARTED) { 
cmMultiCasKpfd, nfd, putCollEndPnt rHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fCursorState == COMM_STARTED) { 
cmMultiCasKpfd, nfd, putCollEndCursorHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

if (pCollFrData->fPictState == COMM_STARTED) { 
cmMultiCasKpfd, nfd, putCollEndPictHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

memset ( pCollFrData, 0, sizeof (collabFrontData) ) ; 
f ree(pCollFrData) ; 

} 

if (setSesMgrFrontData( & kernelShastrald . ISIDTag, 
& pSId->lSIDTag, (char *) NULL) < 0) { 
fprintf(stderr, " col IJo in Handler! )->couldn ' t setSesMg rFrontData ! \n" 
); 

} 

if (f reeSmFrFrontSloK & kernelShastrald. ISIDTag, 
& pSId->lSIDTag) < 0) { 
f print f( stderr, "collJoinHandler ( )->couldn ' t freeSmFr Front Slot ! \n" ) 

} 

fKern = shaKernFlags [f d] ; 
deleteShaIdFromTab(fd, pShast raFrontlds ) ; 
mplexUnRegisterChanneKf d) ; 

krFrSIds2SIdTags(pShastraFrontIds, pShast raFrontldTags ) ; 
krFrSIds2PermTags ( pShast raFrontlds, pShast raFrontPermTags ) ; 

if (fKern != SHAFRONT) { 

fprintf( stderr, "collLeaveCleanUpHandler()-> shouldn't happen!\n"); 
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return; 
} else { 

if ( rgsbShastraFront != NULL) { 

strListDestroy( rgsbShastraFront) ; 

} 

rgsbShastraFront = pSIds2StrTab(pShastraFrontIds, 

PSIDNMHOST I PSIDNMAPPL); 
chooseOneChangeList ( pcoSha St ra Front, rgsbShastraFront, 
coNoInitialHighlight) ; 



setShaSesmFrIdOprn(0) ; 
#ifdef WANTTHIS 
{ 

int *pfd; 
int nfd; 



getKrFDsMCast(fd, &pfd, &nfd, shastraServiceSocket) ; 
cmMultiCast(pfd, nfd, putShaSesmFrldHandler, 
(char *) &kernelShastraId . ISIDTag) ; 

/* WANTTHIS */ 



} 

/* CHECK — alos, go into comm record and cause buffer release */ 
if (pTextCommData != NULL) { 

if (pTextCommData->nMembers > 0) { 
pTextCommData->nMembers — ; 

} 

} 

if (collabLeaveFunc != NULL) { 
(*collabLeaveFunc) (); 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_COLL_LEAVE) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 



oldcollStartTextHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 
cmFlush(fd) ; 



if (pTextCommData != NULL) { 
return; 

} 

pTextCommData = ( collabCommData *) malloc(sizeof (collabCommData) ) ; 
memset(pTextCommData, 0, sizeof (collabCommData) ) ; 
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pTextCommData->nMembers = pShastraFrontIdTags->shast raIdTags_len ; 
pTextCommData->htCommBufs = htMakeNew(COMMHASHTABLESIZE, 0 ); 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollStartTextHandler, 
(char *) NULL) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_START_TEXT) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 

int 

oldcollEndTextHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 
cmFlush(fd) ; 

if (pTextCommData == NULL) { 
return; 

} 

htDest roy ( pTextCommData->htCommBuf s , 1) ; 
f ree( pTextCommData) ; 
pTextCommData = NULL; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollEndTextHandler, 
(char *) NULL) ; 

} 

sprintf (sbOutMsgBuf, "Done ~ %s\n", REQ_END_TEXT) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

old collSendText Hand ler(fd) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 
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if (pTextCommData == NULL) { 
return; 

} { 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendTextHandler, 
bufNam) ; 

} 

free( bufNam) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SEND_TEXT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

oldcollSendMsgTextHandler(fd) 
int fd; 

{ 

char *bufNam; 
collabCommRecordData *pCommRec; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (pTextCommData == NULL) { 
} else { 

pCommRec = (collabCommRecordData *) malloc ( sizeof 

(collabCommRecordData) ) ; 
memset ( pCommRec, 0, sizeof (collabCommRecordData) ) ; 
pCommRec->ref Count = pTextCommData->nMembers - 1; 
pCommRec->inChannel = fd; 

htInstallSymbol(pTextCommData->htCommBuf s, bufNam, (char *) 
pCommRec) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgTextHandler, 
bufNam) ; 

pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

f ree(bufNam) ; 
return ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGTEXT) ; 
showinf o( SbOutMsgBuf ) ; 
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} 

/* 

* Function 
*/ 

int 

oldcollRecvdMsgTextHandler(fd) 
int fd; 

{ 

char *bufNam; 
struct he *phe; 
collabCommRecordData *pCommRec; 

bufNam = cmReceiveSt ring ( f d ) ; 
if (pTextCommData == NULL) { 

cmAckOk(fd) ; 

cmFlush(fd) ; 

return; 

} 

phe = htLookup(pTextCommData->htCommBuf s, bufNam); 
if (phe == NULL) { 

f printf ( stderr, "collRecvdTextHandler ( )->no such buffer known!\n"); 

cmAckEr ror ( f d ) ; 

cmFlush(fd) ; 

return; 

} 

cmAckOk(fd) ; 
cmFlush(fd) ; 

pCommRec = (collabCommRecordData *) phe->data; 
pCommRec->ref Count — ; 
if (pCommRec->ref Count <= 0) { 
/* free, free at last */ 

putCollRecvdMsgTextHandler(pCommRec->inChannel, bufNam) ; 
heDelete(pTextCommData->htCommBuf s, bufNam) ; 
f ree(pCommRec) ; 
f ree(bufNam) ; 

} 

return; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_RECVD_MSGTEXT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 

*/ 

int 

collStartTextHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 
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pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fTextState = COMM_STARTED; 
pCollFrData = ( collabFrontData *) getSesMg rProntData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fTextState = COMM_STARTED; 
} else { 

f printf ( stderr, "collStartTextHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSta rtTextHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_START_TEXT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collEndTextHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fTextState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartTextHandler( )->no SmFrData!"); 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollEndTextHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 
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sprintf (sbOutMsgBuf , "Done ~ %s\n", REQ_END_TEXT) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 

int 

collSendTextHandler(fd) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 

getKrPDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendTextHandler, 
(char *) &bunch) ; 

} 

free( bufNam) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_SEND_TEXT) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgTextHandler(fd) 
int fd; 

{ 

bunchOfThings bunch; 
char *buf; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

buf = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f TextState == COMM_ENDED)) { 
} else { 
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bunch . nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = buf; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shastraServiceSocket) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 
cmMultiCast ( pf d , nfd, putCollSendMsgTextHandler, 

( char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 

f ree( buf ) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SEND_MSGTEXT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgTextHandler(fd) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

free( bufNam) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_RECVD_MSGTEXT) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

col ISendMsgShmText Hand ler(fd) 
int fd; 

{ 

int shmid; 
bunchOfThings bunch; 
char *buf; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 
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if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmTextHandler( )->no non-local SHM\n"); 
return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnecKpShmlnfo, shmid)) { 

f printf ( stderr, "collSendMsgShmTextHandler( )->SHM recon problem\n" ) 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f TextState == COMM_ENDED)) { 
} else { 

buf = pShmInfo->shmAddr; 

bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = buf; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgTextHandler, 

(char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMTEXT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmTextHandler(f d) 
int fd; 

{ 

int shmId; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmTextHandler( )->no non-local SHM\n") 

return; 

} 



Page 19 of 83 



sesMgr_server.c 



7/5/1 1 2:57 PM 



sprintf (sbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMTEXT) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 

*/ 



collStartAudioHandler(fd) 
int fd; 

{ 

shast raldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fAudioState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fAudioState = COMM_STARTED; 
} else { 

f printf ( stderr, "collStartAudioHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollSta rtAudioHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf, "Done~%s\n", REQ_START_AUDIO) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collEndAudioHandler(f d ) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 
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pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fAudioState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartAudioHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollEndAudioHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_END_AUDIO) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendAudioHandler(f d) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendAudioHandler, 
(char *) &bunch) ; 

} 

free (bufNam) ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_SEND_AUDIO) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgAudioHandler(f d) 
int fd; 
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{ 

bunchOfThings bunch; 
char *buf; 
static audioBite aBite; 
shast raldTag *pSIdTag; 
collabFrontData *pCollFrData; 

AudioBiteIn(fd, &aBite) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f AudioState == COMM_ENDED)) 
{ 

} else { 

bunch. nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = (char *) &aBite ; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgAudioHandler, 

(char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

return ; 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGAUDIO) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgAudioHandler(f d) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

free (bufNam) ; 
return ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGAUDIO) ; 
showinf o( SbOutMsgBuf ) ; 
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/* 

* Function 
*/ 
int 

collSendMsgShmAudioHandler( f d) 
int fd; 

{ 

int shmid; 
bunchOfThings bunch; 
static audioBite aBite; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmAudioHandler( )->no non-local SHM\n") 

return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnect ( pShmInf 0, shmId)) { 

f printf ( stderr, "collSenclMsgShmAudioHandler( )->SHM recon problem\n" 
); 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f AudioState == COMM_ENDED)) 
{ 

} else { 

audioBiteMemIn ( pShmInf o->shmAdd r, pShmInf o->shmSize, 

&aBite) ; 
bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = (char *) &aBite; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgAudioHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 
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return; 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMAUDIO) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmAudioHandler ( f d ) 
int fd; 

{ 

int shmid; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmAudioHandler( )->no non-local SHM\n" 
); 

return; 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMAUDIO) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 

*/ 

int 

collStartVideoHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fVideoState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fVideoState = COMM_STARTED; 
} else { 

f printf ( stderr, "collStartVideoHandler ( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 



Page 24 of 83 



sesMgr_server.c 



7/5/1 1 2:57 PM 



getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollStartVideoHandler, 
(char *) &localShaIdIn[fd] .ISIDTag) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_START_VIDEO) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collEndVideoHandler(fd) 
int fd; 

{ 

shast raldTag *pSIdTag; 
collabProntData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fVideoState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartVideoHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollEndVideoHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (SbOutMsgBuf , "Done~%s\n", REQ_END_VIDEO) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendVideoHandler(fd) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 
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bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 



getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendVideoHandler, 
(char *) &bunch) ; 

} 

free( bufNam) ; 

sprintf (sbOutMsgBuf , "Done ~ %s\n", REQ_SEND_VIDEO) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendMsgVideoHandler(fd) 
int fd; 

{ 

bunchOfThings bunch; 
char *bufNam; 
static videolmg vimg; 
shastraldTag *pSIdTag; 
collabProntData *pCollFrData; 

VideoImgIn(fd, &vlmg); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f VideoState == COMM_ENDED)) 
{ 

} else { 

bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = (char *) &vlmg; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCast(pfd, nfd, putCollSendMsgVideoHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 
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return; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SEND_MSGVIDEO) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgVideoHandler(fd) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

free( bufNam) ; 
return; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGVIDEO) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmVideoHandler ( f d ) 
int fd; 

{ 

int shmid; 
bunchOfThings bunch; 
static videolmg vimg; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmVideoHandler ( )->no non-local SHM\n") 

return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnect ( pShmInf 0, shmId)) { 

f printf ( stderr, "collSendMsgShmVideoHandler! )->SHM recon problem\n" 
); 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 
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pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f VideoState == COMM_ENDED)) 
{ 

} else { 

videoImgMemIn( pShmInf o->shmAddr, pShmInf o->shmSize, 

&vlmg) ; 
bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = (char *) &vlmg; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 
cmMultiCast(pfd, nfd, putCollSendMsgVideoHandler, 

(char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMVIDEO) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmVideoHandler(fd) 
int fd; 

{ 

int shmid; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald. lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmVideoHandler ( )->no non-local SHM\n" 
); 

return; 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMVIDEO) ; 
showinf o( SbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collGetPermsHandler(fd) 



Page 28 of 83 



sesMgr_server.c 



7/5/1 1 2:57 PM 



int fd; 

{ 

shast raldTag sIdTag; 

int iFr; 

ShastraIdTagIn(fd, &sIdTag); 

iFr = getSIdTaglndexInSIdTags (&sIdTag, pShast raProntldTags ) ; 
if (iFr == -1) { 

f printf ( stderr, "collGetPermsHandler( )->no such front %lx\n", 
sIdTag) ; 

cmAckError( f d ) ; 

cmFlush(fd) ; 
} else { 

cmAckOk(fd) ; 

ShastraIdTagOut(fd, &sIdTag); 

Shast raldTagOut (fd, &pShast ra Front PermTags->s hast raldTag s_va I [iFr] ) 
cmFlush(fd) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_COLLPERMS) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collSetPermsHandler(fd) 
int fd; 

{ 

shastraldTag sIdTag; 
shastraldTag permTag; 
int iFr; 

ShastraIdTagIn(fd, &sIdTag); 
ShastraIdTagIn(fd, &permTag); 

iFr = getSIdTaglndexInSIdTags (&sIdTag, pShastraFrontldTags) ; 
if(iFr == 0){ 

permTag |= SHASTRA_PERM_GRANT; 

} 

if (iFr == -1) { 

f printf ( stderr, "collSetPermsHandler( )->no such front %lx\n", 
sIdTag) ; 

cmAckError(fd) ; 

cmFlush(fd) ; 
} else { 

cmAckOk(fd) ; 

ShastraldTagOuKfd, &sIdTag); 
ShastraldTagOuKfd, &permTag); 
cmFlush(fd) ; 

pShastraFrontIds->shastraIds_val [iFr]->lPerms = permTag; 
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pShastraFrontPermTags->shastraIdTags_val [iFr] = permTag; 
{ 

int *pfd; 
int nfd; 
bunchOfThings bunch; 

bunch. nThings = 2; 
bunch. things [0] = (char *) &sIdTag; 
bunch. things [1] = (char *) &permTag; 
getKrFDsMCast(fd, &pfd, &nfd, shastraServiceSocket) ; 
cmMultiCast ( pf d , nfd, putSetCollPermsHandler, 
( char *) &bunch) ; 

} 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SET_COLLPERMS) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collGetSesmPermsHandler( f d ) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraIdTagOut(fd, & kernelShast raid . ISIDTag ) ; 
Shast raldTagsOut ( f d, pShast raFrontPermTags ) ; 
cmFlush(fd) ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_GET_SESMCOLLPERMS) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSetSesmPermsHandler( f d ) 
int fd; 

{ 

static shastraldTags permTags; 
shastraldTag *pSIdTag; 
int i; 

ShastraIdTagsIn(fd, &permTags); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if ( ( pShast raFrontPermTags->shast raIdTags_len == 
permTags. shastraIdTags_len) && 
permTags. shastraIdTags_len == pShastraFrontIds->shastraIds_len) { 
for (i = 0; i < pShast raFrontIds->shast ralds_len; i++) { 
pShastraFrontIds->shastraIds_val [i]->lPerms = 
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permTags. shastraIdTags_val [i] ; 

} 

pSIdTag = pShastraFrontPermTags->shastraIdTags_val; 
pShastraFrontPermTags->shastraIdTags_val = permTags. 

shastraIdTags_val; 
permTags . shast raIdTags_val = pSIdTag; 

} { 

int *pfd; 
int nfd; 
bunchOfThings bunch; 

bunch . nThings = 2; 

bunch . things [0] = (char *) &kernelShast raid . ISIDTag ; 
bunch. things [1] = (char *) pShast raFrontPermTags ; 
getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putSetSesmCollPermsHandler, 
(char *) &bunch) ; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SET_SESMCOLLPERMS) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 
*/ 

int 

collGetlxnModeHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraULongOut(fd, &pSesmFrontCD->lIxnMode) ; 
cmFlush(fd) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_GET_IXNMODE) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSetlxnModeHandler(fd) 
int fd; 

{ 

ShastraULongIn(fd, &pSesmFrontCD->lIxnMode) ; 
cmAckOk(fd) ; 

Shast raULongOut ( fd , &pSesmFrontCD->lIxnMode) ; 

cmFlush(fd) ; 

{ 

int *pfd; 
int nfd; 
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getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSetlxnModeHandler, 
(char *) &pSesmFrontCD->lIxnMode) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SET_IXNMODE) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 
*/ 

int 

collGetFloorModeHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraULongOut(fd, &pSesmFrontCD->lFloorMode) ; 
cmFlush(fd) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_GET_FLOORMODE) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSetFloorModeHandler(fd) 
int fd; 

{ 

ShastraULongIn(fd, &pSesmFrontCD->lFloorMode) ; 
cmAckOk(fd) ; 

ShastraULongOut(fd, &pSesmFrontCD->lFloorMode) ; 
cmFlush(fd) ; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSetFloorModeHandler, 
(char *) &pSesmFrontCD->lFloorMode) ; 

} 

sprintf (SbOutMsgBuf , "Done — %s\n", RE0_SET_FLOORMODE) ; 
showinf o( SbOutMsgBuf ) ; 



*/ 
int 
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collGetSesFormatHandler(f d) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraULongOut(fd, &pSesmFrontCD->lFormat ) ; 
cmFlush(fd) ; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GET_SESFORMAT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSetSesFormatHandler(fd) 
int fd; 

{ 

ShastraULongIn(fd, &pSesmFrontCD->lFormat ) ; 
cmAckOk(fd) ; 

ShastraULongOut(fd, &pSesmFrontCD->lFormat ) ; 
cmFlush(fd) ; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSetSesFormatHandler, 
(char *) &pSesmFrontCD->lFormat) ; 

} 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_SET_SESFORMAT) ; 
showinf o( SbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collGrabTokenHandler(fd) 
int fd; 

{ 

/* 

actual floor control processing, beast if something changes 

*/ 

pSesmFrontCD->sIdTagToken = localShaldIn [f d] . ISIDTag; 
cmAckOk(fd) ; 

ShastraldTagOuKfd, &pSesmFrontCD->sIdTagToken) ; 
cmFlush(fd) ; 

{ 

int *pfd; 
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int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollAskTokenHandler, 
(char *) &pSesmFrontCD->sIdTagToken) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_GRAB_TOKEN) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collFreeTokenHandler( f d ) 
int fd; 

{ 

pSesmFrontCD->sIdTagToken = pShast raFrontIdTags->shast raIdTags_val [0] ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

{ 

int *pfd; 
int nfd; 

getKrFDsBCast (&pf d, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollAskTokenHandler, 
(char *) &pSesmFrontCD->sIdTagToken) ; 

} 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_FREE_TOKEN) ; 
showinf o( SbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collTellTokenHandler(fd) 
int fd; 

{ 

shastraldTag sIdTagToken; 
int outFd; 

ShastraIdTagIn(fd, &sIdTagToken) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 
/*CHECK floor processing*/ 

pSesmFrontCD->sIdTagToken = sIdTagToken; 
switch ( routeFrontSIdTagToFd (&sIdTagToken, &outFd, 
"collTellTokenHandlerO") ){ 
case route_FRONT: 

putCollGrabTokenHandler(outFd, &sIdTagToken) ; 
break; 
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case route_ERROR: 

default: 

break; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast (outFd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollAskTokenHandler, 
(char *) &pSesmFrontCD->sIdTagToken ) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_TELL_TOKEN) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collAskTokenHandler(fd) 
int fd; 

{ 

cmAckOk(fd) ; 

ShastraIdTagOut(fd, &pSesmFrontCD->sIdTagToken) ; 
cmFlush(fd) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_ASK_TOKEN) ; 
showinf o( SbOutMsgBuf ) ; 

} 



/* 

* Function 

*/ 

int 

collStartPictHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fPictState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 
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pCollFrData->fPictState = COMM_STARTED; 
} else { 

f printf (stderr, "collStartPictHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollStartPictHandler, 
(char *) &localShaIdIn[fd] .ISIDTag) ; 

} 

sprintf (sbOutMsgBuf , "Done ~ %s\n", REQ_START_PICT) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 

int 

collEndPictHandler(fd) 
int fd; 

{ 

shast raldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fPictState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartPictHandler( )->no SmFrData!"); 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollEndPictHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf, "Done~%s\n", REQ_END_PICT) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendPictHandler(fd) 
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int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendPictHandler, 
(char *) &bunch) ; 

} 

free( bufNam) ; 

sprintf (sbOutMsgBuf , "Done ~ %s\n", REQ_SEND_PICT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendMsgPictHandler(fd) 
int fd; 

{ 

bunchOfThings bunch; 
char *buf; 
static pictPieces pictBites; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

PictDataBitesIn(f d, &pictBites); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f PictState == COMM_ENDED)) { 
} else { 

bunch . nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = (char *) &pictBites; 

{ 

int *pfd; 
int nfd; 
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getKrFDsMCast(fd, &pfd, &nfd, shastraServiceSocket) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCast ( pf d , nfd, putCollSendMsgPictHandler, 

( char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

return; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SEND_MSGPICT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgPictHandler(fd) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

free( bufNam) ; 
return; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_RECVD_MSGPICT) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmPictHandler(fd) 
int fd; 

{ 

int shmid; 
bunchOfThings bunch; 
static pictPieces pictBites; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmPictHandler( )->no non-local SHM\n"); 
return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 
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if ( ! shMemReconnect ( pShmInf 0, shmid)) { 

f printf ( stderr, "collSenclMsgShmPictHandler( )->SHM recon problem\n" ) 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f PictState == COMM_ENDED)) { 
} else { 

pictPiecesMemIn ( pShmInf o->shmAdd r, pShmInf o->shmSize, 

&pictBites) ; 
bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = (char *) &pictBites; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCast(pfd, nfd, putCollSendMsgPictHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 

return ; 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMPICT) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmPictHandler(f d) 
int fd; 

{ 

int shmId; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald. lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmPictHandler( )->no non-local SHM\n") 

return; 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMPICT) ; 
showinf o( SbOutMsgBuf ) ; 
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/* 

* Function 

*/ 



collStartXSCntlHandler(fd) 
int fd; 

{ 

shast raldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fXSCntlState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fXSCntlState = COMM_STARTED; 
} else { 

fprintf (stderr, "collStartXSCntlHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollSta rtXSCntlHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_START_XSCNTL) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collEndXSCntlHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 
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& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fXSCntlState = COMM_ENDED; 
} else { 

fprintf (stderr, "collStartXSCntlHandler( )->no SmFrData! 

} 
{ 

int *pfd; 
int nfd; 

getKrPDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollEndXSCntlHandler, 
(char *) &localShaIdIn[fd] .ISIDTag) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_END_XSCNTL) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendXSCntlHandler(fd) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 



getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendXSCntlHandler, 
(char *) &bunch) ; 

} 

free( bufNam) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_SEND_XSCNTL) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendMsgXSCntlHandler(fd) 
int fd; 
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bunchOfThings bunch; 

char *buf; 

static xsCntlDatas xsCntlBites; 

shast raldTag *pSIdTag; 

collabFrontData *pCollFrData; 

XSCntlBitesIn(fd, &xsCntlBites ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f XSCntlState == COMM_ENDED)) 
{ 

} else { 

bunch. nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = (char *) &xsCntlBites ; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgXSCntlHandler, 

(char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

return ; 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGXSCNTL) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgXSCntlHandler(fd) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

free (bufNam) ; 
return ; 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGXSCNTL) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 
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* Function 
*/ 
int 

collSendMsgShmXSCntlHandler(fd) 
int fd; 

{ 

int shmid; 
bunchOfThings bunch; 
static xsCntlDatas xsCntlBites; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmXSCntlHandler( )->no non-local SHM\n" 
); 

return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnect ( pShmInf 0, shmId)) { 

f printf ( stderr, "collSendMsgShmXSCntlHandler ( )->SHM recon problem\ 
n"); 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f XSCntlState == COMM_ENDED)) 
{ 

} else { 

xsCntlDatasMemIn ( pShmInf o->shmAdd r, pShmInf o->shmSize, 

&xsCntlBites) ; 
bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = (char *) &xsCntlBites ; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgXSCntlHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 

return ; 
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sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMXSCNTL) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmXSCntlHandler(fd) 
int fd; 

{ 

int shmid; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmXSCntlHandler( )->no non-local SHM\ 

n"); 
return; 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMXSCNTL) ; 
showInfo( SbOutMsgBuf ) ; 



/* 

* Function 
*/ 
int 

collStartPolyHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fPolyState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fPolyState = COMM_STARTED; 
} else { 

f printf ( stderr, "collStartPolyHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 
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getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollStartPolyHandler, 
(char *) &localShaIdIn[fd] .ISIDTag) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_START_POLY) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collEndPolyHandler(fd) 
int fd; 

{ 

shast raldTag *pSIdTag; 
collabProntData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fPolyState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartPolyHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollEndPolyHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (SbOutMsgBuf , "Done~%s\n", REQ_END_POLY) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendPolyHandler(fd) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
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cmFlush(fd) ; 



bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 



getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendPolyHandler, 
(char *) &bunch) ; 

} 

free( bufNam) ; 

sprintf (sbOutMsgBuf , "Done ~ %s\n", REQ_SEND_POLY) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendMsgPolyHandler(fd) 
int fd; 

{ 

bunchOfThings bunch; 
char *buf; 
static ipimageData image; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

ImageDataIn(fd, &image); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f PolyState == COMM_ENDED)) { 
} else { 

bunch. nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = (char *) ℑ 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgPolyHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 
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return; 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_SEND_MSGPOLY) ; 
showinf o( sbOutMsgBuif) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgPolyHandler(fd) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

free( bufNam) ; 
return; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_RECVD_MSGPOLY) ; 
showInfo( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgShmPolyHandler(f d) 
int fd; 

{ 

int shmid; 
bunchOfThings bunch; 
static ipimageData image; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmPolyHandler( )->no non-local SHM\n"); 
return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnect ( pShmInf 0, shmId)) { 

f printf ( stderr, "collSenclMsgShmPolyHandler( )->SHM recon problem\n") 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 
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& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollFrData->f PolyState == COMM_ENDED)) { 
} else { 

ipimageDataMemIn(pShmInf o->shmAddr, pShmInf o->shmSize, 

&image) ; 
bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = (char *) ℑ 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCast(pfd, nfd, putCollSendMsgPolyHandler, 

(char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

return ; 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMPOLY) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgShmPolyHandler(f d) 
int fd; 

{ 

int shmid; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald. lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmPolyHandler( )->no non-local SHM\n") 

return; 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMPOLY) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 

*/ 

int 

collStartPntrHandler(fd) 
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int fd; 

{ 

shast raldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pSesMgrCollData->fPntrState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fPntrState = COMM_STARTED; 
} else { 

f printf ( stderr, "collStartPntrHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollSta rtPnt rHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf , "Done~%s\n", REQ_START_PNTR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collEndPntrHandler(fd) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fPntrState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartPntrHandler( )->no SmFrData!"); 

} 
{ 

int *pfd; 
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int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollEndPnt rHandler, 
(char *) &localShaIdIn[fd] .ISIDTag) ; 

} 

sprintf (sbOutMsgBuf , "Done — %s\n", REQ_END_PNTR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendPntrHandler(fd) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch . things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast (fd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCast(pfd, nfd, putCollSendPntrHandler, 
(char *) &bunch) ; 

} 

free( bufNam) ; 

sprintf (SbOutMsgBuf , "Done ~ %s\n", REQ_SEND_PNTR) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgPntrHandler(fd) 
int fd; 

{ 

bunchOfThings bunch; 
static shaDoubles pntrData; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

PntrBiteIn(fd, &pntrData); 
cmAckOk(fd) ; 
cmFlush(fd) ; 
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pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = ( collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f Pnt rState == COMM_ENDED)) { 
} else { 

bunch. nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = (char *) &pntrData; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast(fd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCast(pfd, nfd, putCollSendMsgPnt rHandler, 

(char *) &bunch) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 

} 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGPNTR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgPntrHandler(fd) 
int fd; 

{ 

char *bufNam; 



bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



} 

/* 



free (bufNam) ; 

sprintf ( SbOutMsgBuf , "Done 
showinf o( SbOutMsgBuf ) ; 



%s\n", REO_RECVD_MSGPNTR) ; 



*/ 
nt 

ollSendMsgShmPntrHandler(fd) 
int fd; 



int shmid; 
bunchOfThings bunch; 
char *buf; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 
shmlnfo *pShmInfo; 
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int n ; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmPntrHandler( )->no non-local SHM\n"); 
return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnect ( pShmInf 0, shmid)) { 

f printf ( stderr, "collSenclMsgShmPntrHandler( )->SHM recon problem\n" ) 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = ( collabFrontData *) getSesMg rProntData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollF rData->f Pnt rState == COMM_ENDED)) { 
} else { 

buf = pShmInf o->shmAdd r; 

bunch . nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = buf; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgPntrHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMPNTR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmPntrHandler(f d) 
int fd; 

{ 

int shmId; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 
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if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmPntrHandler( )->no non-local SHM\n") 

return; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMPNTR) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 



collStartCursorHandler (f d) 
int fd; 

{ 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 



pSesMgrCollData->fCursorState = COMM_STARTED; 
pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fCursorState = COMM_STARTED; 
} else { 

f printf ( stderr, "collStartCursorHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollStartCursorHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_START_CURSOR) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collEndCursorHandler(f d) 
int fd; 
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shast raldTag *pSIdTag; 
collabFrontData *pCollFrData; 

cmAckOk(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if (pCollFrData != NULL) { 

pCollFrData->fCursorState = COMM_ENDED; 
} else { 

f printf ( stderr, "collStartCursorHandler( )->no SmFrData ! " ) ; 

} 
{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollEndCursorHandler, 
(char *) &localShaIdIn[fd] .ISIDTag); 

} 

sprintf (sbOutMsgBuf , "Done~%s\n", REQ_END_CURSOR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendCursorHandler( f d) 
int fd; 

{ 

char *bufNam; 
bunchOfThings bunch; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = bufNam; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCast ( f d, &pfd, &nfd, shast raServiceSocket ) ; 
cmMultiCasKpfd, nfd, putCollSendCursorHandler, 
(char *) &bunch) ; 

} 

free (bufNam) ; 

sprintf (SbOutMsgBuf , "Done — %s\n", REQ_SEND_CURSOR) ; 
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showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collSendMsgCursorHandler(f d ) 
int fd; 

{ 

bunchOfThings bunch; 
static shaDoubles pntrData; 
shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

CursorBiteIn(fd, &pntrData); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

pSIdTag = & localShaldIn [fd] . ISIDTag; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollFrData->f CursorState == COMM_ENDED)) 
{ 

} else { 

bunch . nThings = 2; 

bunch. things [0] = (char *) pSIdTag; 

bunch. things [1] = (char *) &pntrData; 

{ 

int *pfd; 
int nfd; 

getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMgrCollData->pShmInfoOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgCursorHandler, 

(char *) &bunch) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGCURSOR) ; 
showinf o( SbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 

int 

collRecvdMsgCursorHandler(f d ) 
int fd; 

{ 

char *bufNam; 

bufNam = cmReceiveSt ring ( f d ) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 
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f ree( bufNam) ; 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGCURSOR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collSendMsgShmCursorHandler(f d) 
int fd; 

{ 



int shmid; 

bunchOfThings bunch; 

char *buf; 

shastraldTag *pSIdTag; 
collabFrontData *pCollFrData; 

shmlnfo *pShmInfo; 

int n ; 



Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 



if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collSendMsgShmCursorHandler( )->no non-local SHM\n" 
); 

return; 

} 

pShmlnfo = mplexInShmInf o(fd) ; 

if ( ! shMemReconnecKpShmlnfo, shmId)) { 

f printf ( stderr, "collSendMsgShmCursorHandler ( )->SHM recon problem\ 
n"); 

return; 

} 

pSIdTag = & localShaldIn [f d] . ISIDTag ; 

pCollFrData = (collabFrontData *) getSesMg rFrontData ( 

& kernelShastrald. ISIDTag, pSIdTag); 
if ( (pCollFrData == NULL) || ( pCollFrData->f CursorState == COMM_ENDED)) 
{ 

} else { 

buf = pShmInfo->shmAddr; 
bunch. nThings = 2; 

bunch. things [0] = (char*) &localShaIdIn [fd] . ISIDTag; 

bunch. things [1] = buf; 

{ 

int *pfd; 
int nfd; 



getKrFDsMCasKfd, &pfd, &nfd, shast raServiceSocket ) ; 
pSesMg rCollData->pShmInf oOut->shmDirty = 0; 
cmMultiCasKpfd, nfd, putCollSendMsgCursorHandler, 
(char *) &bunch) ; 
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pSesMg rCollData->pShmInf oOut->shmDirty = 0; 

} 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_SEND_MSGSHMCURSOR) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 
*/ 
int 

collRecvdMsgShmCursorHandler( f d ) 
int fd; 

{ 

int shmid; 

Shastralntln(fd, &shmld); 
cmAckOk(fd) ; 
cmFlush(fd) ; 

if (kernelShastrald.lIPAddr != localShaldIn [fd] . lIPAddr) { 

f printf ( stderr, "collRecvdMsgShmCursorHandler( )->no non-local SHM\ 

n"); 
return; 

} 

sprintf (SbOutMsgBuf , "Done— %s\n", REQ_RECVD_MSGSHMCURSOR) ; 
showinf o( SbOutMsgBuf ) ; 

} 



/* 

* Function 
*/ 
int 

putCollTellLeaderHandler(fd, pSIdTagSesm, pSIdTagLdr, pIdTag) 
int fd; 
shastraldTag *pSIdTagSesm; 
shastraldTag *pSIdTagLdr; 
unsigned long *pIdTag; 

{ 

putStringOnChanneKfd, RE0_COLL_TELLLEADER, "putCollTellLeaderHandler ( 
)"); 

ShastraldTagOuKfd, pSIdTagSesm) ; 
ShastraldTagOuKfd, pSIdTagLdr); 
ShastraULongOuKfd, pIdTag); 
cmFlush(fd) ; 

if (debug) { 

outputldTag ( stderr, pSIdTagSesm) ; 
outputldTag ( stderr, pSIdTagLdr); 

} 
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/* 

* Function 
*/ 

int 

putShaSesmFrIdHandler(f d, pSIdTagSesm) 
int fd; 
shast raldTag *pSIdTagSesm; 

{ 

shast raldTags *pSIdTags; 

putStringOnChanneKfd, REQ_SET_SHASESMFRID, "putShaSesmFrIdHandler( ) " ) ; 
pSIdTags = getSesmFrontSIdTags ( pSIdTagSesm) ; 
ShastraIdTagOut(fd, pSIdTagSesm) ; 
ShastraIdTagsOut(fd, pSIdTags); 
cmFlush(fd) ; 

if (debug) { 

outputldTag ( stderr, pSIdTagSesm) ; 
outputldTags ( stderr, pSIdTags); 

} 

} 

/* 

* Function 
*/ 

int 

putCollLeaveHandler(f d) 
int fd; 

{ 

putStringOnChanneKfd, REQ_COLL_LEAVE, "putCollLeaveHandler( ) " ) ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollAskJoinHandler(fd, pSmSIdTag, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 
shastraldTag *pSmSIdTag; 

{ 

putStringOnChanneKfd, RE0_COLL_ASKJOIN, "putCollAskJoinHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSmSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 



/* 

* Function 
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int putCollAskJoinMsgHandler(fd, pSmSIdTag, pSIdTag, sbMsg) 
int fd; 

shast raldTag *pSmSIdTag ; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COLL_ASKJOINMSG, "putCollAskJoinMsgHandler( 
)"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int putCollAskJnRespMsgHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COLL_ASKJNRESPMSG, 

"putCollAskJnRespMsgHandler( )") ; 
ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int putCollAskJnStatusHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, IStatus) 
int fd; 

shastraldTag *pSmSIdTag ; 
shastraldTag *pToSIdTag; 
shastraldTag *pSIdTag; 
shaULong IStatus; 

{ 

putStringOnChanneKfd, RE0_COLL_ASKJNSTATUS, "putCollAskJnStatusHandler 
()"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
ShastraULongOut(fd, &lStatus); 
cmFlush(fd) ; 
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/* 

* Function 
*/ 
int 

putCollTellJoinHandler(fd, pSmSIdTag, pSIdTag) 
int fd; 
shast raldTag *pSIdTag; 
shast raldTag *pSmSIdTag ; 

{ 

putStringOnChanneKfd, REQ_COLL_TELLJOIN, "putCollTellJoinHandler( ) " ) ; 
ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int 

putCollStartTextHandler(fd, pSIdTag) 
int fd; 
shast raldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REQ_START_TEXT, "putCollStartTextHandler( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollEndTextHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REO_END_TEXT, "putCollEndTextHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendTextHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, REO_SEND_TEXT, "putCollSendTextHandler ( ) " ) ; 
ShastraIdTagOut(fd, (shastraldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendTextHandler ( )") ; 
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cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendMsgTextHandler(fd, buf ) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
char *msg; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
msg = bunch->things [1] ; 
#ifdef USESHAREDMEMFORTEXT 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInfo->shmDirty) { 
pShmInf o->shmDirty = 1; 
n = St rlen (msg ) + 1; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0 
) { 

fprintf(stderr, " put CollSendMsgText Hand ler( )->couldn ' t 
shMemReuseSegment ! \n" ) ; 

} 

memcpy(pShmInfo->shmAddr, msg, n); 

} 

putStringOnChanneKfd, REQ_SEND_MSGSHMTEXT, 

"putCollSendMsgTextHandler( )") ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastraIntOut(fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORTEXT */ 

putStringOnChanneKfd, REO_SEND_MSGTEXT, "putCollSendMsgTextHandler( ) " ) 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "put CollSendMsgText Hand ler( )") 

cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollRecvdMsgTextHandler(f d, buf) 
int fd; 
char *buf; 
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{ 

putStringOnChanneKfd, REQ_RECVD_MSGTEXT, "putCollRecvdMsgTextHandler( 
)"); 

putStringOnChanneKfd, buf, "putCollRecvdMsgTextHandler( ) " ) ; 
cmFlush(fd) ; 

} 

/* 

* Function 

*/ 

int 

putCollStartAudioHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, RE0_START_AUDIO, "putCollStartAudioHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollEndAudioHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, RE0_END_AUDIO, "putCollEndAudioHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendAudioHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, RE0_SEND_AUDIO, "putCollSendAudioHandler ( ) " ) ; 
ShastraIdTagOut(fd, (shastraldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendAudioHandler ( )") ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendMsgAudioHandler(f d, buf) 
int fd; 
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char *buf; 

bunchOfThings *bunch; 

audioBite *pABite; 
int n ; 

shmlnfo *pShmInfo; 



bunch = (bunchOfThings *) buf; 
pABite = (audioBite *) bunch->things [1] ; 
#ifdef USESHAREDMEMFORAUDIO 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInf o->shmDirty) { 
pShmInf o->shmDirty = 1; 

n = pABite->data . data_len + sizeof (audioBite) ; 
if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0 
) { 

fprintf (stderr, "putCollSendMsgAudioHandler( )->couldn 't 
shMemReuseSegment ! \n" ) ; 

} 

audioBiteMemOut(pShmInfo->shmAddr, pShmInf o->shmSize, pABite); 

} 

putStringOnChanneKfd, REQ_SEND_MSGSHMAUDIO, 

"putCollSendMsgAudioHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastraIntOut(fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORAUDIO */ 

putStringOnChanneKfd, RE0_SEND_MSGAUDIO, "putCollSendMsgAudioHandler ( 
)"); 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
AudioBiteOut (fd, pABite); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollRecvdMsgAudioHandler( f d, buf) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, RE0_RECVD_MSGAUDIO, "putCollRecvdMsgAudioHandler 
()"); 

putStringOnChanneKfd, buf, "putCollRecvdMsgAudioHandler ()") ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 
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int 

putCollStartVideoHandler(fd, pSIdTag) 
int fd; 
shast raldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REQ_START_VIDEO, "putCollStartVideoHandler( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollEndVideoHandler(fd, pSIdTag) 
int fd; 
shast raldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REQ_END_VIDEO, "putCollEndVideoHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendVideoHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, RE0_SEND_VIDEO, "putCollSendVideoHandler ( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendVideoHandler ( )") ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendMsgVideoHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
videolmg *pVImg; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
pVImg = (videolmg *) bunch->things [1] ; 
#ifdef USESHAREDMEM 
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if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInf o->shmDirty) { 
pShmInf o->shmDirty = 1; 

n = pVImg->data. data_len + sizeof (videolmg) ; 

if (shMemReuseSegment(pShmInfo, ((n > 102400) ? n : 102400)) == 
0) { 

fprintf (stderr, "putCollSendMsgVideoHandler( )->couldn 't 
shMemReuseSegment ! \n" ) ; 

} 

videoImgMemOut ( pShmInf o->shmAdd r, pShmInf o->shmSize, pVImg); 

} 

putStringOnChanneKfd, REQ_SEND_MSGSHMVIDEO, 

"putCollSendMsgVideoHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastraIntOut(fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEM */ 

bunch = ( bunchOfThings *) buf; 

putStringOnChanneKfd, REQ_SEND_MSGVIDEO, "putCollSendMsgVideoHandler ( 
)"); 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
pVImg = (videolmg *) bunch->things [1] ; 
VideoImgOut ( f d, pVImg); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollRecvdMsgVideoHandler(fd, buf) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, RE0_RECVD_MSGVIDEO, "putCollRecvdMsgVideoHandler 
()"); 

putStringOnChanneKfd, buf, "putCollRecvdMsgVideoHandler ()") ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int 

putCollStartPolyHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, RE0_START_POLY, "putCollStartPolyHandler( ) " ) ; 
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ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollEndPolyHandler(fd, pSIdTag) 
int fd; 
shast raldTag *pSIdTag; 



{ 



} 

/* 



putStringOnChanneKfd, REQ_END_POLY, "putCollEndPolyHandler( ) " 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 



* Function 
*/ 
int 

putCollSendPolyHandler(fd, buf) 
int fd; 
char *buf; 



{ 



} 

/* 



bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, RE0_SEND_POLY, "putCollSendPolyHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendPolyHandler ( )") ; 
cmFlush(fd) ; 



* Function 
*/ 
int 

putCollSendMsgPolyHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
ipimageData *plmage; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
pimage = (ipimageData *) bunch->things [1] ; 
#ifdef USESHAREDMEMFORMPOLY 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInf o->shmDirty) { 
pShmInf o->shmDirty = 1; 

n = pImage->mPoly->nPolygons * 100 * sizeof (double) ; 
if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) 
) { 
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fprintf(stderr, " pu t Co I ISendMsg Poly Handler! )->couldn ' t 
shMemReuseSegment ! \n" ) ; 

} 

ipimageDataMemOut(pShmInfo->shmAddr, pShmInf o->shmSize, pimage) 

} 

putStringOnChanneKfd, REQ_SEND_MSGSHMPOLY, 

"putCollSendMsgPolyHandler( )") ; 
ShastraldTagOuKfd, ( shast raldTag *) bunch->things [0] ) ; 
ShastralntOuKfd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORMPOLY */ 

putStringOnChanneKfd, REQ_SEND_MSGPOLY, "putCollSendMsgPolyHandler ( ) " ) 

ShastraldTagOuKfd, ( shast raldTag *) bunch->things [0] ) ; 
ImageDataOut (fd, pimage); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollRecvdMsgPolyHandler(fd, buf ) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, RE0_RECVD_MSGPOLY, "putCollRecvdMsgPolyHandler ( 
)"); 

putStringOnChanneKfd, buf, "putCollRecvdMsgPolyHandler ()") ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int 

putCollStartPictHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REO_START_PICT, "putCollStartPictHandler( ) " ) ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollEndPictHandler(fd, pSIdTag) 
int fd; 
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shast raldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REQ_END_PICT, "putCollEndPictHandler( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendPictHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, REO_SEND_PICT, "putCollSendPictHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendPictHandler ( )") ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendMsgPictHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
pictPieces *pPCBites; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
pPCBites = (pictPieces *) bunch->things [1] ; 
#ifdef USESHAREDMEMFORPICT 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInfo->shmDirty) { 
pShmInf o->shmDirty = 1; 

/*CHECK*/ 

n = 0; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0 
) { 

fprintf(stderr, "putCollSendMsgPictHandler( )->couldn ' t 
shMemReuseSegment ! \ n" ) ; 

} 

pictPiecesMemOut ( pShmInf o->shmAdd r, pShmInf o->shmSize, pPCBites 
); 

} 

putStringOnChanneKfd, REO_SEND_MSGSHMPICT, 
"putCollSendMsgPictHandler( )") ; 
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ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastralntOut (fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORPICT */ 

putStringOnChanneKfd, REQ_SEND_MSGPICT, "putCollSendMsgPictHandler ( ) " ) 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
PictDataBitesOut(fd, pPCBites); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollRecvdMsgPictHandler(fd, buf ) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, REQ_RECVD_MSGPICT, "putCollRecvdMsgPictHandler ( 
)"); 

putStringOnChanneKfd, buf, "putCollRecvdMsgPictHandler ()") ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int 

putCollStartXSCntlHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REO_START_XSCNTL, "putCollStartXSCntlHandler( ) " ) 

ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollEndXSCntlHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, REO_END_XSCNTL, "putCollEndXSCntlHandler ( ) " ) ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 
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* Function 
*/ 

int 

putCollSendXSCntlHandler(fd, buf ) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, REQ_SEND_XSCNTL, "putCollSendXSCntlHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendXSCntlHandler( ) " ) ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendMsgXSCntlHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
xsCntlDatas *pXSCBites; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
pXSCBites = (xsCntlDatas *) bunch->things [1] ; 
#ifdef USESHAREDMEMFORXSCD 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInfo->shmDirty) { 
pShmInf o->shmDirty = 1; 

/*CHECK*/ 

n = 0; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0 
) { 

fprintf (stderr, "putCollSendMsgXSCntlHandler( )->couldn ' t 
shMemReuseSegment ! \n" ) ; 

} 

xsCntlDatasMemOut (pShmInf o->shmAdd r, pShmInf o->shmSize, 
pXSCBites) ; 

} 

putStringOnChanneKfd, REO_SEND_MSGSHMXSCNTL, 

"putCollSendMsgXSCntlHandlerO") ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastraIntOut(fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORXSCD */ 

putStringOnChanneKfd, REO_SEND_MSGXSCNTL, "putCollSendMsgXSCntlHandler 
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()"); 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
XSCntlBitesOut(fd, pXSCBites); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollRecvdMsgXSCntlHandler(fd, buf ) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, REQ_RECVD_MSGXSCNTL, 

"putCollRecvdMsgXSCntlHandler( ) " ) ; 
putStringOnChanneKfd, buf, "putCollRecvdMsgXSCntlHandler( ) " ) ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 



int 

putCollStartPntrHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 



} 

/* 



putStringOnChanneKfd, REO_START_PNTR, "putCollStartPntrHandler( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 



* Function 
*/ 
int 

putCollEndPntrHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 



} 

/* 



putStringOnChanneKfd, REO_END_PNTR, "putCollEndPnt rHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
cmFlush(fd) ; 



Function 

*/ 
int 

putCollSendPntrHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
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bunch = ( bunchOfThings *) buf; 

putStringOnChanneKfd, REQ_SEND_PNTR, "putCollSendPnt rHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendPnt rHandler( )") ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendMsgPntrHandler(fd, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
shaDoubles *pPntrD; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
pPntrD = (shaDoubles *) bunch->things [1] ; 
#ifdef USESHAREDMEMFORPNTR 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInf o->shmDirty) { 
pShmInf o->shmDirty = 1; 
n = St rlen (msg ) + 1; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0 
) { 

f print f( stder r, "putCollSendMsgPnt rHandler ( )->couldn ' t 
shMemReuseSegment ! \n" ) ; 

} 

memcpy(pShmInfo->shmAddr, msg, n); 

} 

putStringOnChanneKfd, REO_SEND_MSGSHMPNTR, 

"putCollSendMsgPntrHandler( )") ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastraIntOut(fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORPNTR */ 

putStringOnChanneKfd, REO_SEND_MSGPNTR, "putCollSendMsgPnt rHandler( ) " ) 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
PntrBiteOut(fd, pPntrD); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 
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putCollRecvdMsgPntrHandler(fd, buf ) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, REQ_RECVD_MSGPNTR, "putCollRecvdMsgPnt rHandler( 
)"); 

putStringOnChanneKfd, buf, "putCollRecvdMsgPnt rHandler( )") ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int 

putCollStartCursorHandler(fd, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, RE0_START_CURSOR, "putCollStartCursorHandler( ) " ) 

ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollEndCursorHandler(f d, pSIdTag) 
int fd; 
shastraldTag *pSIdTag; 

{ 

putStringOnChanneKfd, RE0_END_CURSOR, "putCollEndCursorHandler( ) " ) ; 
ShastraldTagOuKfd, pSIdTag); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollSendCursorHandler(f d, buf) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 

bunch = (bunchOfThings *) buf; 

putStringOnChanneKfd, RE0_SEND_CURSOR, "putCollSendCursorHandler ( ) " ) ; 
ShastraldTagOuKfd, (shastraldTag *) bunch->things [0] ) ; 
putStringOnChanneKfd, bunch->things [1] , "putCollSendCursorHandler( )") ; 
cmFlush(fd) ; 

} 

/* 
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* Function 
*/ 

int 

putCollSendMsgCursorHandler(f d, buf ) 
int fd; 
char *buf; 

{ 

bunchOfThings *bunch; 
shaDoubles *pCursorD; 
int n ; 

shmlnfo *pShmInfo; 

bunch = (bunchOfThings *) buf; 
pCursorD = (shaDoubles *) bunch->things [1] ; 
#ifdef USESHAREDMEMFORCURSOR 

if (kernelShastrald.lIPAddr == localShaldIn [fd] . lIPAddr) { 
pShmlnfo = pSesMg rCollData->pShmInf oOut ; 
if ( ! pShmInfo->shmDirty) { 
pShmInf o->shmDirty = 1; 
n = strlen(msg) + 1; 

if (shMemReuseSegment(pShmInfo, ((n > 10240) ? n : 10240)) == 0 
) { 

fprintf (stderr, "putCollSendMsgCursorHandler( )->couldn 't 
shMemReuseSegment ! \n" ) ; 

} 

memcpy ( pShmInf o->shmAdd r, msg, n); 

} 

putStringOnChanneKfd, REQ_SEND_MSGSHMCURSOR, 

"putCollSendMsgCursorHandler( ) " ) ; 
ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
ShastraIntOut(fd, &pShmInf o->shmId ) ; 
cmFlush(fd) ; 
return; 

} 

#endif /* USESHAREDMEMFORCURSOR */ 

putStringOnChanneKfd, RE0_SEND_MSGCURSOR, "putCollSendMsgCursorHandler 
()"); 

ShastraIdTagOut(fd, ( shast raldTag *) bunch->things [0] ) ; 
CursorBiteOut(fd, pCursorD); 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollRecvdMsgCursorHandler (f d, buf) 
int fd; 
char *buf; 

{ 

putStringOnChanneKfd, RE0_RECVD_MSGCURSOR, 

"putCollRecvdMsgCursorHandler( ) " ) ; 
putStringOnChanneKfd, buf, "putCollRecvdMsgCursorHandler( ) " ) ; 
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cmFlush(fd) ; 

} 



/* 

* Function 
*/ 
int 

putSetCollPermsHandler(fd, arg) 
int fd; 
char *arg; 

{ 

shast raldTag *pSIdTag; 
shast raldTag *pPermTag; 

bunchOfThings *bunch = ( bunchOfThings *) arg; 

pSIdTag = ( shast raldTag *) bunch->things [0] ; 
pPermTag = ( shast raldTag *) bunch->things [1] ; 

putStringOnChanneKfd, REQ_SET_COLLPERMS, "putSetCollPermsHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTag); 
ShastraIdTagOut(fd, pPermTag); 
cmFlush(fd) ; 



/* 

* Function 
*/ 
int 

putSetSesmCollPermsHandler( f d, arg) 
int fd; 
char *arg; 

{ 

shastraldTag *pSIdTag; 
shast raldTags *pPermTags ; 

bunchOfThings *bunch = (bunchOfThings *) arg; 

pSIdTag = (shastraldTag *) bunch->things [0] ; 
pPermTags = ( shast raldTags *) bunch->things [1] ; 
putStringOnChanneKfd, RE0_SET_SESMCOLLPERMS, 

"putSetSesmCollPermsHandler( )") ; 
ShastraIdTagOut(fd, pSIdTag); 
Shast raldTagsOut ( fd, pPermTags ) ; 
cmFlush(fd) ; 



/* 

* Function 
*/ 
int 

putCollSetlxnModeHandler ( f d , pIxnMode) 
int fd; 
unsigned long *pIxnMode; 



Page 75 of 83 



sesMgr_server.c 



7/5/1 1 2:57 PM 



{ 

putStringOnChanneKfd, REQ_SET_IXNMODE, "putCollSetIxnModeHandler( ) " ) ; 
ShastraULongOut(fd, pIxnMode) ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 
int 

putCollSetFloorModeHandler( f d, pFloorMode) 
int fd; 
unsigned long *pFloorMode; 



{ 



} 



putStringOnChanneKfd, REQ_SET_FLOORMODE, "putCollSetFloorModeHandler( 
)"); 

ShastraULongOut(fd, pFloorMode); 
cmFlush(fd) ; 



/* 

* Function 
*/ 
int 

putCollSetSesFormatHandler(f d, pSes Format) 
int fd; 
unsigned long *pSesFormat ; 



} 



putStringOnChanneKfd, RE0_SET_SESFORMAT, "putCollSetSesFormatHandler ( 
)"); 

ShastraULongOuKfd, pSesFormat ) ; 
cmFlush(fd) ; 



/* 

* Function 
*/ 

int 

putCollGrabTokenHandler(f d, pSIdTagToken ) 
int fd; 
shastraldTag *pSIdTagToken; 

{ 

putStringOnChanneKfd, RE0_GRAB_TOKEN, "putCollGrabTokenHandler( ) " ) ; 
ShastraldTagOuKfd, pSIdTagToken) ; 
cmFlush(fd) ; 

} 

/* 

* Function 
*/ 

int 

putCollFreeTokenHandler(f d, pSIdTagToken) 
int fd; 
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shast raldTag *pSIdTagToken; 

{ 

putStringOnChanneKfd, REQ_FREE_TOKEN, "putCollFreeTokenHandler( ) " ) ; 
ShastraIdTagOut(fd, pSIdTagToken) ; 
cmFlush(fd) ; 



* Function 
*/ 
int 

putCollTellTokenHandler( f d, pSIdTagToken) 
int fd; 
shast raldTag *pSIdTagToken; 

{ 

putStringOnChanneKfd, REQ_TELL_TOKEN, "putCollTellTokenHandler ( ) " ) ; 
ShastraIdTagOut(fd, pSIdTagToken) ; 
cmFlush(fd) ; 



* Function 
*/ 
int 

putCollAskTokenHandler ( f d, pSIdTagToken ) 
int fd; 
shastraldTag *pSIdTagToken; 

{ 

putStringOnChanneKfd, RE0_ASK_TOKEN, "putCollAskTokenHandler ()" ) ; 
ShastraldTagOuKfd, pSIdTagToken) ; 
cmFlush(fd) ; 



/* 

* Function 

*/ 

closedChannelCleanUpHandler (f d) 
int fd; 

{ 

if (shaKernFlags [fd] == SHAFRONT) { 

collLeaveCleanUpHandler(f d) ; 
} else { 

mplexUnRegisterChannel(fd) ; 
/* CHECK actually initiate ret ry-connection sequence */ 
} 

} 

/* 

* Function 
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*/ 

int putCollCommMsgTextHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COMM_MSGTEXT, "putCollCommMsgTextHandler( ) " ) 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int collCommMsgTextHandler(f d) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sIdTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch ( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
" CO I ICommMsgText Handler! ) " ) ) { 
case route_FRONT: 

putCollCommMsgTextHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGTEXT) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 
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int putCollCommMsgTextFileHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 

shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

{ 

putStringOnChanneKfd, REQ_COMM_MSGTEXTFILE, 

"putCollCommMsgTextFileHandler( ) " ) ; 
ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int collCommMsgTextFileHandler(f d ) 
int fd; 

{ 

shast raldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sIdTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 

switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collCommMsgTextFileHandler ( ) " ) ) { 
case route_FRONT: 

putCollCommMsgTextFileHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGTEXTFILE) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 

int putCollCommMsgAudioHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
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int fd; 

shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

putStringOnChanneKfd, REQ_COMM_MSGAUDIO, "putCollCommMsgAudioHandler( 
)"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int collCommMsgAudioHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sIdTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch ( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collCommMsgAudioHandler( ) " ) ) { 
case route_FRONT: 

putCollCommMsgAudioHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGAUDIO) ; 
showinf o( sbOutMsgBuf ) ; 

} 

/* 

* Function 

*/ 

int putCollCommMsgAudioFileHandler(fd, pSIdTag, pToSIdTag, pSmSIdTag, sbMsg 
) 
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int fd; 

shast raldTag *pSIdTag; 
shast raldTag *pToSIdTag; 
shast raldTag *pSmSIdTag ; 
char *sbMsg; 

putStringOnChanneKfd, REQ_COMM_MSGAUDIOFILE, 

"putCollCommMsgAudioFileHandler( ) " ) ; 
ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int collCommMsgAudioFileHandler(f d) 
int fd; 

{ 

shast raldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sIdTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collCommMsgAudioFileHandler( ) " ) ) { 
case route_FRONT: 

putCollCommMsgAudioFileHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGAUDIOFILE) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 

int putCollCommMsgVideoHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg) 
int fd; 



Page 81 of 83 



sesMgr_server.c 



7/5/1 1 2:57 PM 



shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

putStringOnChanneKfd, REQ_COMM_MSGVIDEO, "putCollCommMsgVideoHandler( 
)"); 

ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int collCommMsgVideoHandler(fd) 
int fd; 

{ 

shastraldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sIdTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch ( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collCommMsgVideoHandler( ) " ) ) { 
case route_FRONT: 

putCollCommMsgVideoHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGVIDEO) ; 
showinf o( sbOutMsgBuf ) ; 



/* 

* Function 

*/ 

int putCollCommMsgVideoFileHandler(fd, pSmSIdTag, pToSIdTag, pSIdTag, sbMsg 
) 

int fd; 
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shast raldTag *pSmSIdTag ; 
shast raldTag *pToSIdTag; 
shast raldTag *pSIdTag; 
char *sbMsg; 

putStringOnChanneKfd, REQ_COMM_MSGVIDEOFILE, 

"putCollCommMsgVideoFileHandler( ) " ) ; 
ShastraIdTagOut(fd, pSmSIdTag ) ; 
ShastraIdTagOut(fd, pToSIdTag); 
ShastraIdTagOut(fd, pSIdTag); 
sendDataString(fd, sbMsg); 
cmFlush(fd) ; 



/* 

* Function 

*/ 

int collCommMsgVideoFileHandler(f d) 
int fd; 

{ 

shast raldTag smSIdTag; 
shastraldTag toSIdTag; 
shastraldTag sIdTag; 
char *sMsg; 
int outFd; 

ShastraIdTagIn(fd, &smSIdTag ) ; 
ShastraIdTagIn(fd, &toSIdTag); 
ShastraIdTagIn(fd, &sIdTag); 
sMsg = cmReceiveString(fd) ; 
cmAckOk(fd) ; 
cmFlush(fd) ; 



switch( routeFrontSIdTagToFd (&toSIdTag, &outFd, 
"collCommMsgVideoFileHandler( ) " ) ) { 
case route_FRONT: 

putCollCommMsgVideoFileHandler(outFd, &smSIdTag, &toSIdTag, 
&sIdTag, sMsg); 

break; 

case route_ERROR: 

default: 

break; 

} 

sprintf (sbOutMsgBuf , "Done— %s\n", REQ_COMM_MSGVIDEOFILE) ; 
showinf o( sbOutMsgBuf ) ; 



Page 83 of 83 



sesMgrMainCB.c 



7/5/1 1 2:57 PM 



***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#include <X11/Int rinsic . h> 
#include <X11/St ringDef s . h> 
#include <X11/Shell. h> 

#include <Xm/Form.h> 
#include <Xm/Label.h> 
#include <Xm/Text.h> 
#include <Xm/RowColumn . h> 

#in elude <shastra/uitools/strListUtilities.h> 
#in elude <shastra/uitools/buttonBox.h> 
#in elude <shastra/uitools/confirmCB.h> 
#include <shast ra/uitools/chooseOne. h> 
#include <shast ra/uitools/callbackArg . h> 

#include <shast ra/datacomm/shast raldH. h> 
#include <shast ra/datacomm/shast raldTagH. h> 

#include <shast ra/shautils/shautils . h> 
#in elude <shastra/shautils/kernelFronts.h> 
#in elude <shast ra/shautils/sesMg rFronts . h> 

#inelude <shastra/session/sesMgrMainCB. h> 
#include <shast ra/ session/ sesMg r. h> 
#inelude <shast ra/session/sesMg r_client . h> 
#inelude <shast ra/session/sesMgrState. h> 
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/* 

* Function: createMainCmdShell (private) 

* 

*/ 
Widget 

createMainCmdShelKwgParent ) 
Widget wgParent; 

{ 

Widget wgMainCmdShell, wgMainCmdForm; 

Widget wgName; 
XmString xmName; 
char *sName; 

/* Create the menu popup shell */ 

wgMainCmdShell = XtVaCreatePopupShellC'mainCmdShell", 

topLevelShellWidgetClass, wgParent, NULL); 

/* 

* Create the menu form widget used to position the widgets inside 

* the 
*/ 

/* menu window */ 

wgMainCmdForm = XtVaCreateManagedWidget ( "mainCmdForm" , 
xmFormWidg etc lass, 

wgMainCmdShell, NULL); 

sName = resolveNameFrom2Bases ( pSesMg rAppData->sDirBase, 

pSesMgrAppData->sDirDef s, "bitmaps/terminal. xbm" ) ; 
wgName = XtVaCreateManagedWidget ( "hostNameLabel" , xmLabelWidgetClass, 
wgMainCmdForm, 
XmNbac kg round Pixmap, 

convertStringToPixmap(wgMainCmdForm, sName) , 
NULL) ; 

xmName = XmStringCreateSimple( shortenName( kernelHostName) ) ; 
XtVaSetValues(wgName, XmNlabelSt ring , (XtArgVal) xmName, NULL); 
XmSt ringFree (xmName) ; 

/* 

* Create the button box and state box objects that are inside the 

* menu 

*/ 

/* window */ 

c reat eMainCmd But tonBox( wgMainCmdForm) ; 
c reat eMainDbg But tonBox( wgMainCmdForm) ; 
c reat eText St at us Box (wgMainCmdForm) ; 

return wgMainCmdShell; 



/* 

* Function: createMainCmdButtonBox (private) 
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*/ 

Widget wgMainKill; 

Widget wgMainQuit; 

chooseOne *pcoShast raSesMg r; 

chooseOne *pcoShast raKern; 

chooseOne *pcoShastraFront; 

chooseOne *pcoShast raSys ; 

char **rgsbShastraKern; 

char **rgsbShastraSesMgr; 

char **rgsbShast raFront ; 

char **rgsbShastraSys; 

char *rgsbNull[] = {NULL}; 

void 

createMainCmdButtonBox(wgPa rent ) 

Widget wgParent; 



static button abu[] = { 
{"kill", &wgMainKill}, 
{"quit", &wgMainOuit}, 
{NULL, NULL} 

}; 

buttonBoxCreate("mainBtnsBox" , wgParent, abu. True); 

/* Create a choose one object to select one system */ 
pcoShastraFront = chooseOneCreate(NULL, coNoInitialHighlight, 
wgMainKill, chooseOneTestCB, 
(XtPointer) pcbArgPopup, wgMainKill, 
"Choose Local Front-end", 200, NULL); 
chooseOneChangeLisKpcoShastraFront, rgsbNull, coNoInitialHighlight) ; 

/* Create a choose one object to select one system */ 
pcoShast raSesMg r = chooseOneCreate(NULL, coNoInitialHighlight, 
wgMainKill, chooseOneTestCB, 
(XtPointer) pcbArgPopup, wgMainKill, 
"Choose Remote SesMgr", 200, NULL); 
chooseOneChangeList ( pcoShast raSesMg r, rgsbNull, coNoInitialHighlight) ; 



/* Create a choose one object to select one system */ 
pcoShastraKern = chooseOneCreate(NULL, coNoInitialHighlight, 
wgMainKill, chooseOneTestCB, 
(XtPointer) pcbArgPopup, wgMainKill, 
"Choose Remote Kernel", 200, NULL); 
chooseOneChangeLisKpcoShastraKern, rgsbNull, coNoInitialHighlight) ; 

/* Create a choose one object to select one system */ 
pcoShast raSys = chooseOneCreate(NULL, coNoInitialHighlight, 
wgMainKill, chooseOneTestCB, 
(XtPointer) pcbArgPopup, wgMainKill, 
"Choose Remote System", 200, NULL); 
chooseOneChangeLisKpcoShastraSys, rgsbNull, coNoInitialHighlight) ; 
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XtAddCallback(wgMainQuit, XmNactivateCallback, mainQuitCB, NULL); 
XtAddCallback(wgMainKill, XmNactivateCallback, mainKillCB, 
(XtPointer) pcoShast raFront ) ; 

} 

/* 

* Function: createTextStatusBox (private) 
*/ 

Widget wgStatusText ; 

void 

createTextStatusBox(wgParent ) 
Widget wgParent; 

{ 

Arg args[8]; 
int n; 

n = 0; 

XtSetArg (args [n] , XmNrows, 5); 
n++; 

XtSetArg (args [n] , XmNcolumns, 40); 
n++; 

XtSetArg(args [n] , XmNeditable, False); 
n++; 

XtSetArg(args [n] , XmNeditMode, XmMULTI_LINE_EDIT) ; 
n++; 

XtSetArg(args [n] , XmNscrollBarDisplayPolicy, XmAS_NEEDED) ; 
n++; 

wgStatusText = XmCreateScrolledText (wgParent, "mainStatusText" , 

args, n); 
XtManageChild(wgStatusText) ; 



/* 

* Function: createMainDbgButtonBox (private) 
*/ 

Widget wgDbgCheckSys ; 

Widget wgDbgGetSys; 

Widget wgDbgGetKern ; 

Widget wgDbgCheckSmFr; 

Widget wgDbgGetSmFr; 

Widget wgDbgGetSesm; 

void 

createMa in Dbg But ton Box (wgParent ) 
Widget wgParent; 

{ 

static button abu[] = { 

{"getKern", &wgDbgGetKern}, 
{"getSys", &wgDbgGetSys}, 
{"checkSys", &wgDbgCheckSys}, 
{"getSesm" , &wgDbgGetSesm}, 
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{"getSmFr" , &wgDbgGetSmFr}, 
{"checkSmFr" , &wgDbgCheckSmFr}, 
{NULL, NULL} 

}; 

buttonBoxCreateC'dbgBtnsBox", wgParent, abu, True); 

XtAddCallback(wgDbgCheckSys, XmNactivateCallback, dbgCheckSysCB, 

(XtPointer) pcoShast raKern ) ; 
XtAddCallback(wgDbgGetSys, XmNactivateCallback, dbgGetSysCB, 

(XtPointer) pcoShast raKern ) ; 
XtAddCallback(wgDbgGetKern, XmNactivateCallback, dbgGetKernCB, 

(XtPointer) NULL); 
XtAddCallback(wgDbgCheckSmFr, XmNactivateCallback, dbgCheckSmFrCB, 

(XtPointer) pcoShast raSesMg r) ; 
XtAddCallback(wgDbgGetSmFr, XmNactivateCallback, dbgGetSmFrCB, 

(XtPointer) pcoShast raSesMg r) ; 
XtAddCallback(wgDbgGetSesm, XmNactivateCallback, dbgGetSesmCB, 

(XtPointer) NULL); 

} 

void 

mainKillCB(widget, xpClientData, call_data) 
Widget widget; 
XtPointer xpClientData, call_data; 

{ 

chooseOne *pco = (chooseOne *) xpClientData; 

strcpy(pcbArgPopup->msg, "chooseSystem" ) ; 
pcbArgPopup->operation = endSystemOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 0; /* no call for name */ 
pcbArgPopup->wgInitiator = widget; 



/* Pop up the choose one object */ 
chooseOneMobExec(pco, widget); 



void 

mainQuitCB(widget, closure, call_data) 
Widget widget; 
XtPointer closure, call_data; 

{ 

strcpy(pcbArgPopup->msg, "Confirm Action"); 
strcpy(pcbArgPopup->prompt, "Please Confirm Action"); 
pcbArgPopup->operation = quitOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 0; /* call for name */ 
pcbArgPopup->wgInitiator = widget; 
Conf irmPopup(widget) ; 



} 
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void 

dbgCheckSysCB(wg, xpClientData, call_data) 

Widget wg; 

XtPointer xpClientData, call_data; 



chooseOne *pco = (chooseOne *) xpClientData; 

strcpy(pcbArgPopup->msg, "chooseKernel" ) ; 
pcbArgPopup->operation = dbgCheckSysOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 0; /* no call for name */ 
pcbArgPopup->wgInitiator = wg; 

/* Pop up the choose one object */ 
chooseOneMobExec(pco, wg); 



void 

dbgGetSysCB(wg, xpClientData, call_data) 
Widget wg; 

XtPointer xpClientData, call_data; 



{ 



chooseOne *pco = (chooseOne *) xpClientData; 

strcpy(pcbArgPopup->msg, "chooseKern" ) ; 
pcbArgPopup->operation = getShaKernFrldOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 0; /* no call for name */ 
pcbArgPopup->wgInitiator = wg; 

/* Pop up the choose one object */ 
chooseOneMobExec(pco, wg); 



} 



void 

dbgGetKernCB(wg, xpClientData, call_data) 
Widget wg; 

XtPointer xpClientData, call_data; 

{ 

getShaKernIdOprn(0) ; 

} 

void 

dbgCheckSysOprn ( iObj Index) 

int iObjIndex; 

{ 

shastralds *pSIds; 
shastrald *pSId; 
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int kernFd; 

pSId = shastraKernIds.shastraIds_val[iObjIndex] ; 
kernFd = locateKernFronts(pSId) ; 
if (kernFd < 0) { 

f printf ( stderr, "dbgCheckSysOprn( )->kernFd =%d\n", kernFd); 

return; 

} 

pSIds = getKernFrontSIds(pSId) ; 

if (rgsbShastraSys != NULL) { 

St rList Destroy! rgsbShastraSys) ; 

} 

rgsbShastraSys = pSIds2St rTab ( pSIds , PSIDSHOWALL) ; 

chooseOneChangeList (pcoShast raSys, rgsbShastraSys, coNoIn it ialHigh light 
); 

strcpy(pcbArgPopup->msg, "chooseSys" ) ; 
pcbArgPopup->operation = NULL; 
pcbArgPopup->fWantOprn = 0; 

pcbArgPopup->fWantArg = 0; /* no call for name */ 
/* Pop up the choose one object */ 

chooseOneMobExec(pcoShastraSys, pcbArgPopup->wgInitiator) ; 

} 



void 

dbgCheckSmFrCB(wg, xpClientData, call_data) 

Widget wg; 

XtPointer xpClientData, call_data; 

{ 

chooseOne *pco = (chooseOne *) xpClientData; 

strcpy(pcbArgPopup->msg, "chooseSesMg r" ) ; 
pcbArgPopup->operation = dbgCheckSmFrOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 0; /* no call for name */ 
pcbArgPopup->wgInitiator = wg; 

/* Pop up the choose one object */ 
chooseOneMobExec(pco, wg); 

} 



void 

dbgGetSmFrCB(wg, xpClientData, call_data) 
Widget wg; 

XtPointer xpClientData, call_data; 

{ 



Page 7 of 9 



sesMgrMainCB.c 



7/5/1 1 2:57 PM 



chooseOne *pco = (chooseOne *) xpClientData; 

strcpy(pcbArgPopup->msg, "chooseSesm" ) ; 
pcbArgPopup->operation = getShaSesmFrldOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 0; /* no call for name */ 
pcbArgPopup->wgInitiator = wg; 

/* Pop up the choose one object */ 
chooseOneMobExec(pco, wg); 



} 



void 

dbgGetSesmCB(wg, xpClientData, call_data) 
Widget wg; 

XtPointer xpClientData, call_data; 

{ 

getShaSesmIdOprn(0) ; 

} 

void 

dbgCheckSmFrOprn( iObj Index) 
int iObjIndex; 



{ 



shast raldTags *pSIdTags; 
shastraldTag *pSIdTag; 
int smindex; 

pSIdTag = (shastraldTag *) & shastraSesmlds. shastralds_val [iObjIndex]-> 
ISIDTag; 

smindex = locateSesmFronts ( pSIdTag ) ; 
if (smindex < 0) { 

f printf ( stderr, "dbgCheckSysOprn ( )->smIndex = %d\n", smindex); 

return; 

} 

pSIdTags = getSesmProntSIdTags ( pSIdTag ) ; 

if (rgsbShastraSys != NULL) { 

strListDestroy( rgsbShastraSys) ; 

} 

rgsbShastraSys = mapSIdTags2StrTab(pSIdTags, PSIDSHOWALL) ; 
chooseOneChangeList (pcoShast raSys, rgsbShastraSys, coNoIn it ialHigh light 
); 

strcpy(pcbArgPopup->msg, "chooseSys" ) ; 
strcpy(pcbArgPopup->prompt, "Enter Password:"); 
pcbArgPopup->operation = endSystemOprn; 
pcbArgPopup->fWantOprn = 1; 

pcbArgPopup->fWantArg = 1; /* call for name */ 
/* Pop up the choose one object */ 

chooseOneMobExec(pcoShastraSys, pcbArgPopup->wgInitiator) ; 
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/* 

* Function — 
*/ 
void 

outputTextToWidget ( s, wg, pCurrentPosn) 
char *s; 
Widget wg; 
XmTextPosition *pCurrentPosn; 

{ 

XmTextBlock textBlock; 
XmTextPosition currentPosn; 

if (pCurrentPosn == 0) { 

currentPosn = XmTextGetlnsertionPosition (wg ) ; 

pCurrentPosn = &currentPosn; 
} else { 

XmTextSetInsertionPosition(wg, *pCurrentPosn) ; 

} 

XmTextReplace(wg, *pCurrentPosn, *pCurrentPosn, s) 
*pCurrentPosn += strlen(s); 

#ifdef WANTTHIS 

/* Save output in buffer */ 

if (strlen(saveBuffer) + strlen(s) + 1 <= MAXLEN) 

St rcat ( saveBuf f er, s); 
} else { 

printf ("Save-buffer overflow. \n" ) ; 

} 

#endif /* WANTTHIS */ 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#in elude <shastra/d raw/d rawdata . h> 
#include <shast ra/d raw/pict . h> 
#include <shast ra/network/mplex. h> 
#include <shast ra/network/ server. h> 
#include <shast ra/solid/imagelO. h> 

void generateContoursFromPict(Prot5(pictData *, int, int, int, 

int)); 

mLineData * 
read Linel mag eFD ( f d ) 
int fd; 



mLineData *mLine; 
lineData *line; 
char *sbln; 

mLine = (mLineData *) malloc(sizeof (mLineData) ) ; 

sbin = cmReceiveSt ring ( f d ) ; 
sscanf(sbln, "%d", &mLine->nLines ) ; 
f ree( sbIn) ; 

mLine->lines = (lineData *) malloc(sizeof (lineData) * 
mLine->nLines) ; 
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for (i = 0; i < mLine->nLines ; i++) { 
line = &mLine->lines [i] ; 
sbin = cmReceiveSt ring ( f d ) ; 
sscanf(sbln, "%d", &line->number) ; 
f ree(sbln) ; 

line->array = (double (*)[3]) malloc(sizeof (double) 
3 * line->number) ; 

for (j = 0; j < line->number; j++) { 
sbIn = cmReceiveSt ring ( fd ) ; 
sscanf(sbln, "%lf%lf%lf", 

&line->array [ j ] [0] , 

&line->array [ j ] [1] , 

&line->array [ j ] [2] ) ; 
f ree(sbln) ; 

} 

} 

return mLine; 

} 

mLineData * 

read Linelmage ( inSt ream) 

FILE *inStream; 

{ 

int i, j ; 

mLineData *mLine; 
lineData *line; 

mLine = (mLineData *) malloc(sizeof (mLineData) ) ; 

f scant (inStream, "%d", &mLine->nLines ) ; 

mLine->lines = (lineData *) malloc(sizeof (lineData) * 

mLine->nLines) ; 
for (i = 0; i < mLine->nLines ; i++) { 
line = &mLine->lines [i] ; 
f scant ( inSt ream, "%d", &line->number) ; 
line->array = (double (*)[3]) malloc(sizeof (double) 
3 * line->number) ; 

for (j = 0; j < line->number; j++) { 
fscanf (inStream, "%lf%lf%lf", 
&line->array [ j ] [0] , 
&line->array [ j ] [1] , 
&line->array [ j ] [2] ) ; 

} 

} 

return mLine; 

} 



void 

writeLineImageFD(fd, mLine) 
int fd; 
mLineData *mLine; 

{ 
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int i, j ; 

lineData *line; 
char sbOut [256] ; 



sprintf (sbOut, "%d\n", mLine->nLines ) ; 

cmSendString(fd, sbOut) ; 

for (i = 0; i < mLine->nLines ; i++) { 

line = &mLine->lines [i] ; 

sprintf (sbOut, "%d\n", line->number) ; 

cmSendString(fd, sbOut) ; 

for (j = 0; j < line->number; j++) { 
sprintf (sbOut, "%lf %lf %lf\n", 
line->array [ j ] [0] , 
line->array [ j ] [1] , 
line->array [ j ] [2] ) ; 
cmSendString(fd, sbOut) ; 

} 

} 

} 

void 

writeLineImage(outStream, mLine) 
FILE *outStream; 
mLineData *mLine; 



{ 



int i, j ; 

lineData *line; 



f printf (outStream, "%d\n", mLine->nLines ) ; 
for (i = 0; i < mLine->nLines ; i++) { 

line = &mLine->lines [i] ; 

f printf (outSt ream, "%d\n", line->number) ; 

for (j = 0; j < line->number; j++) { 
fprintf (outStream, "%lf %lf %lf\n", 
line->array [ j ] [0] , 
line->array [ j ] [1] , 
line->array [ j ] [2] ) ; 

} 

} 

} 



void 

freeLineImage( mLine) 

mLineData *mLine; 

{ 

int i, j ; 

lineData *line; 



for (i = 0; i < mLine->nLines ; i++) { 
line = &mLine->lines [i] ; 
f ree(line->array) ; 

} 
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f ree(mLine->lines ) ; 
f ree(mLine) ; 

} 



mLineData * 
copyLineImage( inmLine) 

mLineData *inmLine; 



mLineData *mLine; 
lineData *line; 
lineData *inLine; 



mLine = (mLineData *) malloc(sizeof (mLineData) ) ; 
mLine->nLines = inmLine->nLines ; 

mLine->lines = (lineData *) malloc(sizeof (lineData) * 

mLine->nLines) ; 
for (i = 0; i < mLine->nLines ; i++) { 

line = &mLine->lines [i] ; 

inLine = &inmLine->lines [i] ; 

line->number = inLine->number; 

line->array = (double (*)[3]) malloc(sizeof (double) * 
3 * line->number) ; 

memcpy ( line->a may, inLine->array, sizeof (double) * 
3 * line->number) ; 

} 

return mLine; 



int 

sendPictContours (fd, pPict) 
int fd; 
pictData *pPict; 

{ 

mLineData mLine; 



generateContoursFromPict (pPict, l/*fBern*/, l/*f CircEll*/, 

24/*iPieces*/, 0/*iForLamina*/) ; 
mLine. nLines = pPict->nPicts ; 
mLine. lines = pPict->contours; 
writeLineImageFD(f d, &mLine); 
return 1; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* convert. c 

*/ 

#include <stdio.h> 

#include <poly/poly . h> 
#include <poly/polymath . h> 
#include <shast ra/solid/datadef s . h> 
#include <shast ra/solid/edgetypes . h> 
#include <shast ra/ sol id/eqn types . h> 
#include <shast ra/ sol id/mac ros . h> 
#include <shast ra/solid/readSolid . h> 
#include <ipoly/iPolyH. h> 
#include <ipoly/ipolyutil. h> 

#define DEBUG 0 

#define iabs(x) ((x) < 0 ? -(x) : (x)) 
extern char *stdVars [3] ; 



Solid_Ptr 

convertlPolyToSolid ( pi Poly) 
iPoly *pIPoly; 

{ 

Stack_Union solObject; 
int i, j ; 
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int nDEs = 0; 

Solid_Ptr pSolid = createSolid ( ) ; 

Vertex_Ptr pVertex; 

Edge_Ptr pEdge; 

Face_Ptr pFace; 

Cycle_Ptr pCycle; 

DEdge_Ptr pDEdge; 

St rcpy( pSolid->name, "iPolySolid" ) ; 
if (DEBUG) { 

fprintf (stdout, "######solid#######\n\n" ) ; 

fprintf (stdout, "SOLID %s\n", pSolid->name) ; 

fprintf (stdout, "%d %d %d\t#vertices, edges, faces\n", 

IPolyNVerts(pIPoly) , IPolyNEdges ( pIPoly) , IPolyNFaces ( pIPoly) ) ; 

} 

for (i = 0; i < IPolyNVerts ( pIPoly) ; i++) { 
pVertex = createVertex( ) ; 
solObject. vertex = pVertex; 
AddObjToSolid(&solObject, VERTEX, pSolid); 

} 

for (i = 0; i < IPolyNEdges ( pIPoly) ; i++) { 
pEdge = createEdge( ) ; 
solObj ect . edge = pEdge; 
AddObjToSolid(&solObject, EDGE, pSolid); 

} 

/*CHECK — assuming #faces == #cycles.. true except for grouped objects..*/ 
for (i = 0; i < IPolyNFaces ( pIPoly) ; i++) { 
pFace = createFace( ) ; 
solObj ect . face = pFace; 
AddObjToSolid(&solObject, FACE, pSolid); 
pCycle = createCycle( ) ; 
solObj ect . cycle = pCycle; 
AddObjToSolid(&solObject, CYCLE, pSolid); 

} 

/* if ( (IPolyNVertFaceAdjs(pIPoly) ==0) || ( IPolyNVertEdgeAd j s ( pIPoly) == 
0)){ 

genlPolyAdjlnfo(pIPoly) ; 
}*/ 

if (DEBUG) { 

fprintf (stdout, "######vertices#######\n\n" ) ; 

} 

for (i = 0; i < IPolyNVerts ( pIPoly) ; i++) { 
Vertex_Ptr pVertex = Solid_Vertex(pSolid, i) ; 
double *point; 
int iV = i+1; 

point = IPolyVert ( pIPoly, i) ; 
sprintf ( pVertex->name, "v%d", iV) ; 
pVertex->point [0] = point [0]; 
pVertex->point [1] = point [1]; 
pVertex->point [2] = point [2]; 
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if (DEBUG) { 

fprintf (stdout, "%lf %lf %lf\t#point for v%d\n", 
point [0], point [1], point [2], iV) ; 

} 

if ( (IPolyNVertFaceAdjs(pIPoly) > 0) && 
(IPolyNVertEdgeAdjs(pIPoly) > 0)){ 
/*have vert face and edge adjs, use to compute adj info*/ 

for (j = 0; j < IPolyVertNFaceAdj s(pIPoly, i) ; j++) { 
IPolyVertFaceAdj (pIPoly, i, j); 
} 

for (j = 0; j < IPolyVertNEdgeAdj s(pIPoly, i) ; j++) { 
IPolyVertEdgeAdj (pIPoly, i, j); 
} 

} 

/* f DoneVertAdj s; */ 
} 

if (DEBUG) { 

fprintf (stdout, "######edges#######\n" ) ; 

} 

for (i = 0; i < IPolyNEdges ( pIPoly) ; i++) { 
Edge_Ptr pEdge = Solid_Edge(pSolid, i) ; 
Vertex_Ptr vl, v2; 
int iE = i+1; 
int iVl, iV2; 

sprintf (pEdge->name, "e%d", iE); 
iVl = IPolyEdgeVKpIPoly, i) +1; 
iV2 = IPolyEdgeV2(pIPoly, i) +1; 
fillIndex(&pEdge->vertexl,0, VERTEX, iVl) ; 
fillIndex(&pEdge->vertex2,0, VERTEX, iV2) ; 
if (DEBUG) { 

fprintf (stdout, "%s\t#name for e%d\n", pEdge->name, iE); 
fprintf (stdout, "V %d\t#vertl for e%d\n", iVl, iE); 
fprintf (stdout, "V %d\t#vert2 for e%d\n", iV2, iE); 

} 

pEdge->type = LINEAR; 
vl = Solid_Vertex(pSolid, iVl - 1); 
v2 = Solid_Vertex(pSolid, iV2 - 1); 
pEdge->tanl2 [0] = v2->point[0] - vl->point [0] ; 
pEdge->tanl2 [1] = v2->point[l] - vl->point [1] ; 
pEdge->tanl2 [2] = v2->point[2] - vl->point [2] ; 
normalizeDblVector(pEdge->tanl2) ; 
pEdge->tan21 [0] = -pEdge->tanl2 [0] ; 
pEdge->tan21 [1] = -pEdge->tanl2 [1] ; 
pEdge->tan21 [2] = -pEdge->tanl2 [2] ; 
if (DEBUG) { 

fprintf (stdout, "%lf %lf %lf\t#tanl2 for e%d\n", 

pEdge->tanl2 [0] , pEdge->tanl2 [1] , pEdge->tanl2 [2] , iE); 

fprintf (stdout, "%lf %lf %lf\t#tan21 for e%d\n", 

pEdge->tan21 [0] , pEdge->tan21 [1] , pEdge->tan21 [2] , iE); 

} 
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if (IPolyNEdgeFaceAdjs(pIPoly) > 0){ 
/*have edge face adjs, use to get dedge info*/ 

for (j = 0; j < IPolyEdgeNFaceAdj s(pIPoly, i) ; j++) { 
IPolyEdgeFaceAdj ( pIPoly, i, j); 

} 

} 

/* fDoneEdgeDEs = 1*/ 
} 

if (DEBUG) { 

fprintf (stdout, "###### f aces#######\n") ; 

} 

for (i = 0; i < IPolyNFaces ( pIPoly) ; i++) { 
CycleList_Ptr pCycPtr; 
DEList_Ptr pDEPtr; 
AdjList_Ptr pAdjPtr; 
int iF = i+1; 
int iD, iND, iPD, iV; 
Poly PlaneEqnFrom3Pts( ) ; 

pFace = Solid_Face(pSolid, i) ; 
sprintf (pFace->name, "f%d", iF); 
pFace->type = IMPLICIT; 
if (DEBUG) { 

fprintf (stdout, "%s\t#name for f%d\n", pFace->name, iF); 

} 

if (IPolyNFaceVerts(pIPoly, i) >= 3){ 
pFace->equation = 

PlaneEqnFrom3Pts(IPolyVert(pIPoly, IPolyFaceVert ( pIPoly, i, 0)), 
IPolyVerKpIPoly, IPolyFaceVert ( pIPoly, i, D), 
IPolyVerKpIPoly, IPolyFaceVert ( pIPoly, i, 2))); 

} 

else{ 

pFace->equation = ParseC'x + y + z"); 

} 

ConformPolyToVarsO, stdVars, pFace->equation) ; 
pFace->normal = createEqnItem( ) ; 

pFace->normal->eQN = Dif f Poly ( pFace->equation, 0); 
ConformPolyToVarsO, stdVars, pFace->normal->eQN) ; 
pFace->normal->next = createEqnItem( ) ; 

pFace->normal->next->eQN = Dif f Poly ( pFace->equation, 1); 
ConformPolyToVarsO, stdVars, pFace->normal->next->eQN) ; 
pFace->normal->next->next = createEqnItem( ) ; 

pFace->normal->next->next->eQN = Dif f Poly ( pFace->equation, 2); 
ConformPolyToVarsO, stdVars, pFace->normal->next->next->eQN) ; 
if (DEBUG) { 

fprintf (stdout, "%s\t#Equation for f%d\n", 

UnParse(pFace->equation) , iF); 
fprintf (stdout, "%s\t#X normal component for f%d\n", 

UnParse(pFace->normal->eQN) , iF) ; 
fprintf (stdout, "%s\t#Y normal component for f%d\n", 
UnParse(pFace->normal->next->eQN) , iF) ; 
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fprintf (stdout, "%s\t#Z normal component for f%d\n", 
UnParse(pFace->normal->next->next->eQN) , iF) ; 

} 

if (DEBUG) { 

fprintf (stdout, "l\t#number of cycles for f%d\n", iP); 

} 

pCycPtr = createCycleItem( ) ; 
pCycPtr->next = pFace->cycles ; 
pFace->cycles = pCycPtr; 
if (DEBUG) { 

fprintf (stdout, "C %d\t#cycle for f%d\n", iF, iF); 

} 

fillIndex(&pCycPtr->cycle,0, CYCLE, iF) ; 

pCycle = Solid_Cycle(pSolid, i) ; 
if (DEBUG) { 

fprintf (stdout, "F %d\t#face for c%d\n", iF, iF); 

} 

f illIndex(&pCycle->f ace, 0, FACE, iF) ; 

if ( (IPolyNEdgeFaces(pIPoly) > 0) && 

(IPolyNEdgeFaces(pIPoly) == IPolyNVertFaces ( pIPoly ) ) ) { 
/*have faces by edge and vertex, use to compute dedges, adj info*/ 
for (j = 0; j < IPolyNFaceEdges(pIPoly, i) ; j++) { 
pDEdge = createDEdge( ) ; 
solObject.dEdge = pDEdge; 
AddObjToSolid(&solObject, DEDGE, pSolid); 
nDEs ++; 

iD = IPolyFaceEdge(pIPoly, i, j); 

iND = ( j==IPolyNFaceEdges(pIPoly, i)-l)? 

nDEs-IPolyNFaceEdges(pIPoly, i)+l: nDEs+1; 
iPD = (j==0)? 

nDEs+IPolyNFaceEdges(pIPoly, i)-l: nDEs-1; 
pEdge = Solid_Edge(pSolid, iabs(iD)-l); 

pDEPtr = createDEdgeItem( ) ; 
pDEPtr->next = pEdge->dEdges ; 
pEdge->dEdges = pDEPtr; 
if (DEBUG) { 

fprintf (stdout, "D %d\t#dedge for e%d\n", nDEs, iabs(iD)); 

} 

fillIndex(&pDEPtr->dEdge,0, DEDGE, nDEs) ; 
if (DEBUG) { 

fprintf (stdout, "E %d\t#edge for de%d\n", iabs(iD), nDEs); 
fprintf (stdout, "C %d\t#cycle for de%d\n", iF, nDEs); 
fprintf (stdout, "RO %d\t#orientn for de%d\n", iD>0?l:0, nDEs); 
fprintf (stdout, "D %d\t#nextde for de%d\n", iND, nDEs); 

} 

pDEdge->rightOrientation = (iD>0)?l:0; 
fillIndex(&pDEdge->edge,0,EDGE,iabs(iD) ) ; 
f illIndex(&pDEdge->cycle,0, FACE, iF) ; 



Page 5 of 6 



convert. c 



7/5/1 1 2:59 PM 



fillIndex(&pDEdge->nextDE,0,DEDGE,iND) ; 
if (j==0){ 

if (DEBUG) { 

f printf (stdout, "D %d\t#dedge for c%d\n", nDEs, iF); 

} 

fillIndex(&pCycle->dEdge,0,DEDGE,nDEs) ; 



iV = IPolyFaceVert(pIPoly, i, j )+l; /*indexed from 0*/ 
pVertex = Solid_Vertex( pSolid , iV-1); 
pAdjPtr = createAdjItem( ) ; 
pAdjPtr->next = pVertex->ad j acencies ; 
pVertex->adjacencies = pAdjPtr; 
fillIndex(&pAdjPtr->face, 0, FACE, iF); 
fillIndex(&pAdjPtr->dEIn, 0, DEDGE, iPD); 
fillIndex(&pAdjPtr->dEOut, 0, DEDGE, nDEs); 
if (DEBUG) { 

fprintf (stdout, "F %d\t#face adj for v%d\n", iF, iV); 
fprintf (stdout, "D %d\t#dedge in for v%d\n", 

pAdjPtr->dEIn. index, iV); 
fprintf (stdout, "D %d\t#dedge out for v%d\n", 

pAdjPtr->dEOut. index, iV) ; 

} 

} 

} 

else{ 

fprintf (stderr, "convertlPolyToSolid ()-> in consistency in iPoly ! \n" ) ; 

} 

} 

/* 

if ( !fDoneVertAdjs){ 

setAllVe rtexAdj acencies (pSolid) ; 

} 

*/ 

return pSolid; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* copySolid.c - input functions for solid at the network interface 

* 

* copyStringO 

* 

* copylndexO copyAd j Item( ) copyEqnItem( ) 

* 

* copyVertex( ) copyDEdgeO copyEdgeO copyCycleO copyFaceO copySolidO 

* 

*/ 

#include <stdio.h> 
#include <ctype.h> 

#include <shast ra/shilp. h> 
#include <shast ra/solid/datadef s . h> 
#include <shast ra/ sol id/mac ros . h> 
#include <shast ra/solid/bern . h> 

#include <poly/poly . h> 
#include <poly/polymath . h> 
#include <shast ra/solid/readSolid . h> 
#include <shast ra/solid/copySolid . h> 

/* 

* copyIndex( inlndex, iptr) - copy an index 
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*/ 

void 

copyIndex( inlndex, iptr) 

Index_Ptr inlndex, iptr; 

{ 

memcpy(iptr, inlndex, sizeof ( Index_St ruct ) ) ; 

} 

/* 

* copyAd j Item( inAdj Item, apt r ) - copy an adjacency into item pointer 

* 

*/ 
void 

copyAdj Item( inAdj Item, aptr) 

AdjList_Ptr inAdjItem, aptr; 

{ 

copyIndex(&inAdj Item->f ace, &aptr->face) ; 
copyIndex(&inAdj Item->dEIn, &aptr->dEIn) ; 
copyIndex(&inAdj Item->dEOut, &apt r->dEOut ) ; 

} 

/* 

* copyEqnItem( inEqnItem ) - copy an equation item, create it and return it 
*/ 

EQNList_Ptr 
copyEqnItem( inEqnItem) 

EQNList_Ptr inEqnItem; 



} 



EQNList_Ptr New_Eqn = c reateEqnItem ( ) ; 
New_Eqn->eQN = CopyPoly ( inEqnItem->eQN) ; 
return (New_Eqn) ; 



/* 

* reverseBernPar( inEqn) - reverse bernstein-parametric eqn 

* 

*/ 
void 

reverseBernPar( inEqn) 

BernPar_Ptr inEqn; 

{ 

int i; 
int n, n2; 

double tmpBuf[3]; 

if ((inEqn == NULL) || ( inEqn->deg ree == 0)) { 
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return; 

} 

n = (1 + inEqn->deg ree) ; 
n2 = n / 2; 

for (i = 0; i < n2; i++) { 

memcpy(tmpBuf , inEqn->coef f s [i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f s [i] , inEqn->coef f s [n - i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f s [n - i] , tmpBuf, 3 * sizeof (double) ) ; 

} 

return; 

} 

/* 

* copyBernPar( inEqn) - copy bernstein-parametric eqn, return pointer 

* 

*/ 

BernPar_Ptr 
copyBernPar( inEqn) 

BernPar_Ptr inEqn; 

{ 

int i; 
BernPar_Ptr eqn; 
if (inEqn == NULL) { 
return NULL; 

} 

eqn = (BernPar_Ptr) malloc(sizeof (BernPar) ) ; 
eqn->degree = inEqn->degree; 
if (eqn->degree > 0) { 

eqn->coeffs = (double (*)[3]) 

createMem(3 * (1 + eqn->degree) * sizeof (double) ) ; 
memcpy(eqn->coef f s, inEqn->coef f s, 

3 * (1 + eqn->degree) * sizeof (double) ) ; 

} 

return eqn; 

} 

/* 

* reverseBernParQuad ( inEqn) - reverse bernstein-parametric quad eqn 

* 

*/ 
void 

reverseBernParQuad (inEqn) 
BernParQuad_Ptr inEqn; 

{ 

int i; 
int n, n2; 

double tmpBuf[3]; 

if ((inEqn == NULL) || ( inEqn->deg ree == 0)) { 
return; 

} 

n = (1 + inEqn->degree) ; 
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n2 = n / 2; 

for (i = 0; i < n2; i++) { 

memcpy(tmpBuf , inEqn->coef f 1 [i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 1 [i] , inEqn->coef f 1 [n - i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 1 [n - i] , tmpBuf, 3 * sizeof (double) ) ; 

} 

for (i = 0; i < n2; i++) { 

memcpydmpBuf , inEqn->coef f 2 [i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 2 [i] , inEqn->coef f 2 [n - i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 2 [n - i] , tmpBuf, 3 * sizeof (double) ) ; 

} 

return; 

} 

/* 

* copyBernParQuad ( inEqn) - copy bernstein-paramet ric eqn, return pointer 

* 

*/ 

BernParQuad_Ptr 
copyBernParQuad (inEqn) 

BernParQuad_Ptr inEqn; 

{ 

int i; 
BernParQuad_Ptr eqn; 
if (inEqn == NULL) { 
return NULL; 

} 

eqn = (BernParQuad_Ptr) malloc(sizeof (BernParQuad) ) ; 
eqn->degree = inEqn->degree; 
if (eqn->degree > 0) { 

eqn->coeffl = (double (*)[3]) 

createMem(3 * (1 + eqn->degree) * sizeof (double) ) ; 
eqn->coeff2 = (double (*) [3] ) 

createMem(3 * (1 + eqn->degree) * sizeof (double) ) ; 
memcpy ( eqn->coef f 1, inEqn->coef f 1, 

3 * (1 + eqn->degree) * sizeof (double) ) ; 
memcpy ( eqn->coeff 2, inEqn->coef f 2, 

3 * (1 + eqn->degree) * sizeof (double) ) ; 

} 

return eqn; 

} 

/* 

* reverseBernTensor( inEqn) - reverse bernstein-pa ramet ric quad eqn 

* 

*/ 
void 

reverseBernTensor( inEqn) 
BernTensor_Pt r inEqn; 

{ 

int i; 
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int n, n2; 

double tmpBuf[3]; 

if ((inEqn == NULL) || ( inEqn->deg ree == 0)) { 
return; 

} 

n = (1 + inEqn->degree) ; 
n2 = n / 2; 

for (i = 0; i < n2; i++) { 

memcpy(tmpBuf , inEqn->coef f 1 [i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 1 [i] , inEqn->coef f 1 [n - i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 1 [n - i] , tmpBuf, 3 * sizeof (double) ) ; 

} 

for (i = 0; i < n2; i++) { 

memcpydmpBuf , inEqn->coef f 2 [i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 2 [i] , inEqn->coef f 2 [n - i] , 3 * sizeof (double) ) ; 

memcpy( inEqn->coef f 2 [n - i] , tmpBuf, 3 * sizeof (double) ) ; 

} 

return; 

} 

/* 

* copyBernTensor( inEqn) - copy bernstein-pa ramet ric eqn, return pointer 

* 

*/ 

BernTensor_Ptr 
copyBe rnTen so r( inEqn) 

BernTensor_Ptr inEqn; 

{ 

int i; 
BernTensor_Ptr eqn; 
if (inEqn == NULL) { 
return NULL; 

} 

eqn = ( BernTensor_Pt r) malloc ( sizeof ( BernTensor) ) ; 
eqn->degree = inEqn->degree; 
if (eqn->degree > 0) { 

eqn->coeffl = (double (*)[3]) 

createMem(3 * (1 + eqn->degree) * sizeof (double) ) ; 
eqn->coeff2 = (double (*) [3] ) 

createMem(3 * (1 + eqn->degree) * sizeof (double) ) ; 
memcpy(eqn->coef f 1, inEqn->coef f 1, 

3 * (1 + eqn->degree) * sizeof (double) ) ; 
memcpy(eqn->coef f 2, inEqn->coef f 2, 

3 * (1 + eqn->degree) * sizeof (double) ) ; 
memcpy ( eqn->tangent , inEqn->tangent , 
3 * sizeof (double) ) ; 

} 

return eqn; 

} 

/* 
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* copyVertex( inVertex) - copy in and create a single vertex return a 

pointer 

* to the vertex 
*/ 

Vertex_Ptr 

copyVe rt ex ( inVertex) 

Vertex_Ptr inVertex; 

{ 

Vertex_Ptr New_Vertex = createVertex( ) ; 

AdjList_Ptr last_adj, src_adj; 
int i, num_aclj ; 

double a, b, c; 

/* copy in the point value */ 

memcpy(New_Vertex->point, inVertex->point , sizeof (double) * 3); 
/* copy adjacencies */ 

for (src_adj = inVertex->adjacencies, i = 0; src_adj != NULL; 
src_adj = src_adj->next, i++) { 
if (i == 0) { 

last_adj = New_Vertex->adjacencies = createAd j Item( ) ; 
copyAdjItem(src_adj , last_adj ) ; 
} else { 

last_adj->next = createAd j Item( ) ; 
copyAdjItem(src_adj , last_adj->next) ; 
last_adj = last_adj->next ; 

} 

} 

return (New_Vertex) ; 



/* 

* copyDEdge( inDEdge) - copy in and create a new directed edge 

* 

*/ 

DEdge_Ptr 
copyDEdge(inDEdge) 

DEdge_Ptr inDEdge; 

{ 

DEdge_Ptr New_DEdge = createDEdge( ) ; 



copyIndex(&inDEdge->cycle, &New_DEdge->cycle) ; 
New_DEdge->rightOrientation = inDEdge->rightOrientation; 
copyIndex(&inDEdge->edge, &New_DEdge->edge) ; 
copyIndex(&inDEdge->nextDE, &New_DEdge->nextDE) ; 
return (New_DEdge); 



/* 
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* copyEdge( inEdge) - copy in and create an edge return a pointer to the 
edge 

* 

*/ 

Edge_Ptr 
copyEdge( inEdge) 

Edge_Ptr inEdge; 

{ 

Edge_Ptr New_Edge = createEdge( ) ; 

DEList_Ptr last_de, src_de; 

int i; 



/* copy edge name */ 

St rcpy (New_Edge->name, inEdge->name) ; 



/* copy vertexl & vertex2 indices */ 
copyIndex(&inEdge->vertexl, &New_Edge->vertexl) ; 
copyIndex(&inEdge->vertex2, &New_Edge->vertex2) ; 



/* copy edge type */ 
New_Edge->type = inEdge->type; 



/* copy tangents */ 

memcpy (New_Edge->tanl2, inEdge->tanl2, sizeof (double) * 3); 
memcpy (New_Edge->tan21, inEdge->tan21, sizeof (double) * 3); 

/* copy directed edges */ 

for (src_de = inEdge->dEdges, i = 0; src_de != NULL; 
src_de = src_de->next, i++) { 
if (i == 0) { 

last_de = New_Edge->dEdges = createDEdgeItem( ) ; 
copyIndex(&src_de->dEdge, &last_de->dEdge) ; 
} else { 

last_de->next = createDEdgeItem( ) ; 
copyIndex(&src_de->dEdge, &last_de->next->dEdge) ; 
last_de = last_de->next ; 

} 

} 



/* copy aux eqn */ 

New_Edge->aux_Eqn = CopyPoly( inEdge->aux_Eqn) ; 

/* see if there is a bernstein eqn */ 
New_Edge->eqn = copyBernPar( inEdge->eqn) ; 
return (New_Edge) ; 



/* 

* copyCycle( inCycle) - copy in, create and return a cycle 

* 

*/ 
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Cycle_Ptr 
copyCycle(inCycle) 

Cycle_Ptr inCycle; 



} 



Cycle_Ptr New_Cycle = createCycle( ) ; 

copyIndex(&inCycle->f ace, &New_Cycle->f ace) ; 
copyIndex(&inCycle->dEdge, &New_Cycle->dEdge) ; 

return (New_Cycle); 



/* 

* copyFace( inFace) - copy in and create a face return a pointer to the new 

* face 

* 

*/ 

Face_Ptr 

copyFace( inFace) 

Face_Ptr inFace; 

{ 

Face_Ptr New_Face = createFace( ) ; 

EQNList_Ptr last_eqn, next_eqn; 
CycleList_Ptr last_cycle, src_cycle; 
int i; 



/* copy name */ 

strcpy(New_Face->name, inFace->name) ; 
/* copy type */ 

New_Face->type = inFace->type; 



/* copy equation */ 

New_Face->equation = CopyPoly ( inFace->equation) ; 
New_Face->bernQuad = copyBernParQuad ( inFace->bernQuad ) ; 
New_Face->bernTens = copyBernTensor(inFace->bernTens) ; 

/* copy the (three) normal equations */ 
New_Face->normal = copyEqnItem( inFace->normal) ; 
New_Face->normal->next = copyEqnItem(inFace->normal->next) ; 
New_Face->normal->next->next = copyEqnItem(inFace->normal->next->next) ; 

/* copy in the cycles */ 

for (src_cycle = inFace->cycles, i = 0; src_cycle != NULL; 
src_cycle = src_cycle->next, i++) { 
if (i == 0) { 

last_cycle = New_Face->cycles = createCycleItem( ) ; 
copyIndex(&src_cycle->cycle, &last_cycle->cycle) ; 
} else { 

last_cycle->next = createCycleItem( ) ; 
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copyIndex(&src_cycle->cycle, &last_cycle->next->cycle) ; 
last_cycle = last_cycle->next ; 

} 

} 

return (New_Face) ; 

} 

/* 

* copySolid ( inSolid ) - copy a solid from another, return a pointer to the 

* new solid 

* 

*/ 

Solid_Ptr 
copySolid(inSolid) 

Solid_Ptr inSolid; 

{ 

/* WARNING — if marked field is -1, piece won't be copied */ 
Solid_Ptr New_Solid = c reateSolid ( ) ; 

int i; 
Stack_Union object; 

St rcpy (New_Solid->name, inSolid->name) ; 

/* copy all the solid subcomponents */ 
printf ("copying vertices\n" ) ; 

for (i = 0; i < inSolid->vertices->index; i++) { 

object. vertex = copyVertex(Solid_Vertex( inSolid, i)); 
AddObjToSolid(&object, VERTEX, New_Solid); 

} 

printf ("copying edges\n"); 

for (i = 0; i < inSolid->edges->index; i++) { 

object. edge = copyEdge(Solid_Edge( inSolid, i)); 
AddObjToSolid(&object, EDGE, New_Solid); 

} 

printf ("copying faces\n"); 

for (i = 0; i < inSolid->f aces->index; i++) { 

object. face = copyFace(Solid_Face( inSolid, i)); 
AddObjToSolid(&object, FACE, New_Solid); 

} 

printf ("copying dedges\n"); 

for (i = 0; i < inSolid->dEdges->index; i++) { 

object. dEdge = copyDEdge(Solid_DEdge( inSolid, i)); 
AddObjToSolid(&object, DEDGE, New_Solid); 

} 

printf ("copying cycles\n"); 

for (i = 0; i < inSolid->cycles->index; i++) { 
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object. cycle = copyCycle(Solid_Cycle( inSolid, i)); 
AddObjToSolid(&object, CYCLE, New_Solid); 

} 

return (New_Solid); 

} 

/* 

* copyMa rkedSolid ( inSolid ) - copy a marked solid from another, return a 

* pointer to the new solid, marked fields not copied 

* 

*/ 

Solid_Ptr 

copyMa rkedSolid ( inSolid) 

Solid_Ptr inSolid; 



St rcpy (New_Solid->name, inSolid->name) ; 

nfv = inSolid->vertices->index; 

nfe = inSolid->edges->index; 

nff = inSolid->f aces->index; 

nfc = inSolid->cycles->index; 

nfd = inSolid->dEdges->index; 

printf ("copying unmarked vertices\n" ) ; 

for (i = 0; i < nfv; i++) { 

AdjList_Ptr adjs; 

Vertex_Ptr V, fV; 

Face_Ptr fF; 

DEdge_Ptr fD; 

int iV; 

fV = Solid_Vertex(inSolid, i) ; 
if (fV->marked == -1) { 
continue; 

} 

V = object. vertex = copyVertex( f V) ; 
AddObjToSolid(&object, VERTEX, New_Solid); 

for (adjs = V->ad j acencies ; adjs != NULL; adjs = adjs->next) { 
fF = Solid_Face( inSolid, adj s->f ace. index - 1); 
if (fF->marked == -1) { 



fprintf (stderr, "copyMarkedSolid ( )->Warning : bad face %d on 
ad j s ! \n" , 

ad j s->f ace. index - 1); 

} else { 



Solid_Ptr 
int 

Stack_Union 
int 



New_Solid = c reateSolid 0 ; 
i; 

object; 

nfv, nfe, nff, nfc, nfd; 
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adj s->f ace. index -= f F->marked; 

} 

fD = Solid_DEdge(inSolid, ad j s->dEIn . index - 1); 
if (fD->marked == -1) { 

fprintf (stderr, "copyMarkedSolid( )->Warning: bad dein %d in 
ad j s ! \n" , 

adj s->dEIn. index - 1); 

} else { 

ad j s->dEIn . index -= f D->marked ; 

} 

fD = Solid_DEdge(inSolid, ad j s->dEOut . index - 1); 
if (fD->marked == -1) { 

fprintf (stderr, "copyMarkedSolid ( )->Warning : bad deOut %d 

in adjs!\n", 

ad j s->dEOut . index - 1); 

} else { 

adj s->dEOut . index -= f D->marked; 

} 

} 

} 

printf ("copying unmarked edges\n"); 
for (i = 0; i < nfe; i++) { 

Edge_Ptr E, fE; 

Vertex_Ptr fV; 

DEList_Ptr des; 

int iE; 

fE = Solid_Edge(inSolid, i); 
if (fE->marked == -1) { 
continue; 

} 

E = object. edge = copyEdge ( f E) ; 
AddObjToSolid(&object, EDGE, New_Solid); 

fV = Solid_Vertex( inSolid, E->vertexl. index - 1); 
if (fV->marked == -1) { 

fprintf (stderr, "copyMarkedSolid( )->Warning: bad vert %d on 
edge ! \n" , 

E->vertexl. index - 1); 

} else { 

E->vertexl . index -= fV->marked; 

} 

fV = Solid_Vertex( inSolid, E->vertex2. index - 1); 
if (fV->marked == -1) { 

fprintf ( stderr, "copyMarkedSolid( )->Warning: bad vert %d on 
edge ! \n" , 

E->vertex2 . index - 1); 

} else { 

E->vertex2 . index -= fV->marked; 
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} 

for (des = E->dEdges; des != NULL; des = des->next) { 
DEdge_Ptr fD; 

fD = Solid_DEdge(inSolid, des->dEdge. index - 1); 
if (fD->marked == -1) { 

fprintf (stderr, "copyMarkedSolid ( )->Warning : bad dedge %d 

on edge!\n", 

des->dEdge. index - 1); 

} else { 

des->dEdge. index -= f D->marked ; 

} 

} 

} 

printf ("copying unmarked faces\n"); 
for (i = 0; i < nff; i++) { 

Face_Ptr F, fF; 

CycleList_Ptr eyes; 

fF = Solid_Faee(inSolid, i); 
if (fF->marked == -1) { 
eontinue; 

} 

F = objeet.faee = eopyFaee ( f F) ; 
AddObjToSolid(&objeet, FACE, New_Solid); 

for (eyes = F->eyeles; eyes != NULL; eyes = eyes->next) { 
Cyele_Ptr fC; 

fC = Solid_Cyele(inSolid, eyes->eyele. index - 1); 
if (fC->marked == -1) { 

fprintf (stderr, "eopyMarkedSolid ( )->Warning : bad eye %d on 
f aee ! \n" , 

eyes->eyele. index - 1); 

} else { 

eyes->eyele. index -= f C->marked; 

} 

} 

} 

printf ("eopying unmarked dedges\n"); 
for (i = 0; i < nfd; i++) { 

DEdge_Ptr D, fD; 

Cyele_Ptr fC; 

Edge_Ptr fE; 

DEdge_Ptr fDn; 

fD = Solid_DEdge(inSolid, i) ; 
if (fD->marked == -1) { 
eontinue; 

} 

D = objeet.dEdge = eopyDEdge(fD) ; 
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AddObjToSolicK&object, DEDGE, New_Solid); 

fC = Solid_Cycle( inSolid, D->cycle. index - 1); 
if (fC->marked == -1) { 

fprintf (stderr, "copyMarkedSolid ( )->Warning : bad cycle %d on 
dedge ! \n" , 

D->cycle. index - 1) ; 

} else { 

D->cycle. index -= f C->marked; 

} 

fE = Solid_Edge( inSolid, D->edge. index - 1); 
if (fE->marked == -1) { 

fprintf ( stderr, "copyMarkedSolid ( )->Warning : bad edge %d of 

dedge ! \n" , 

D->edge. index - 1) ; 

} else { 

D->edge. index -= f E->marked ; 

} 

fD = Solid_DEdge(inSolid, D->nextDE. index - 1); 
if (fD->marked == -1) { 

fprintf ( stderr, "copyMarkedSolid ( )->Warning : bad nextDE %d in 
dedge ! \n" , 

D->nextDE. index - 1); 

} else { 

D->nextDE . index -= f D->marked; 

} 



printf ("copying unmarked cycles\n"); 

for (i = 0; i < nfc; i++) { 

Cycle_Ptr C, fC; 

Face_Ptr fF; 

DEdge_Ptr fD; 

fC = Solid_Cycle(inSolid, i) ; 
if (fC->marked == -1) { 
continue; 

} 

C = object. cycle = copyCycle(fC) ; 
AddObjToSolid(&object, CYCLE, New_Solid); 

fF = Solid_Face( inSolid, C->f ace. index - 1); 
if (fF->marked == -1) { 

fprintf ( stderr, "copyMarkedSolid ( )->Warning : bad face %d on 

cycle ! \n" , 

C->face. index - 1) ; 

} else { 

C->f ace. index -= f F->marked ; 

} 

fD = Solid_DEdge(inSolid, C->dEdge. index - 1); 
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if (fD->marked == -1) { 

f printf ( stderr, "copyMarkedSolid ( )->Warning : bad de %d in cycle 
!\n", 

C->dEdge. index - 1) ; 

} else { 

C->dEdge. index -= f D->marked; 

} 

} 

return New_Solid; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <math.h> 
#include <ctype.h> 

#include <shast ra/network/ server. h> 
#include <shast ra/network/mplex. h> 

#include <shastra/draw/image.h> 
#include <shast ra/d raw/d rawdata . h> 
#in elude <shast ra/solid/imagelO. h> 

static int fUseNormals = 0; 

static int fCWPolys = 1; 

void normalizeNormal(Protl(f loat *)); 

mPolygonData * 
readPolylmageFD(fd) 

int fd; 

{ 

int i, j ; 

mPolygonData *mPoly; 
polygonData *poly; 
char *sbln; 

sbin = cmReceiveString(fd) ; /*WPZ*/ 
if( sbln[0] == '\0') return NULL; /*WPZ*/ 



Page 1 of 9 



imagelO.c 



7/5/1 1 2:59 PM 



mPoly = (mPolygonData *) malloc(sizeof (mPolygonData) ) ; 

sscanf(sbln, "%d", &mPoly->nPolygons ) ; 
f ree( sbin) ; 

mPoly->polygons = (polygonData *) malloc(sizeof (polygonData) * 

mPoly->nPolygons ) ; 
memset (mPoly->polygons, 0, sizeof (polygonData) *mPoly->nPolygons ) ; 
for (i = 0; i < mPoly->nPolygons ; i++) { 

poly = &mPoly->polygons [i] ; 

sbIn = cmReceiveSt ring ( f d ) ; 

sscanf(sbln, "%d", &poly->nPoints ) ; 

f ree( sbIn) ; 

poly->array = (double (*)[3]) malloc(sizeof (double) * 

3 * poly->nPoints ) ; 
poly->normals = (float (*) [3] ) malloc ( sizeof ( float ) * 
3 * poly->nPoints ) ; 

for (j = 0; j < poly->nPoints ; j++) { 
sbIn = cmReceiveSt ring (f d) ; 
if (fUseNormals) { 
sscanf (sbIn, "%lf %lf%lf %f%f%f " , 

&poly->array [ j ] [0] , 

&poly->array [ j ] [1] , 

&poly->array [ j ] [2] , 

&poly->normals [j ] [0] , 

&poly->normals [j ] [1] , 

&poly->normals [j ] [2] ) ; 
} else { 
sscanf(sbln, "%lf%lf%lf", 

&poly->array [ j ] [0] , 

&poly->array [ j ] [1] , 

&poly->array [ j ] [2] ) ; 

} 

f ree(sbln) ; 

} 

} 

if ( ! fUseNormals) { 

computelmageNormals (mPoly) ; 

} 

return mPoly; 

} 

mPolygonData * 
readPolyImage( inSt ream) 

FILE *inStream; 

{ 

int i, j ; 

mPolygonData *mPoly; 
polygonData *poly; 

mPoly = (mPolygonData *) malloc(sizeof (mPolygonData) ) ; 
f scant ( inStream, "%d", &mPoly->nPolygons ) ; 
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mPoly->polygons = (polygonData *) malloc(sizeof (polygonData) * 

mPoly->nPolygons ) ; 
memset (mPoly->polygons, 0, sizeof ( polygonData ) *mPoly->nPolygons ) ; 
for (i = 0; i < mPoly->nPolygons ; i++) { 
poly = &mPoly->polygons [i] ; 
f scanf (inStream, "%d", &poly->nPoints ) ; 
poly->array = (double (*)[3]) malloc(sizeof (double) * 

3 * poly->nPoints) ; 
poly->normals = (float (*) [3] ) malloc ( sizeof ( float ) * 
3 * poly->nPoints ) ; 

for (j = 0; j < poly->nPoints ; j++) { 

if (fUseNormals) { 
f scanf ( inSt ream, "%lf %lf %lf %f %f %f " , 

&poly->array [ j ] [0] , 

&poly->array [ j ] [1] , 

&poly->array [ j ] [2] , 

&poly->normals [j ] [0] , 

&poly->normals [j ] [1] , 

&poly->normals [j ] [2] ) ; 
} else { 
f scanf (inStream, "%lf%lf%lf", 

&poly->array [ j ] [0] , 

&poly->array [ j ] [1] , 

&poly->array [ j ] [2] ) ; 

} 

} 

} 

if ( ! fUseNormals) { 

computelmageNormals (mPoly) ; 

} 

return mPoly; 

} 

void 

writePolyImageFD(fd, mPoly) 
int fd; 
mPolygonData *mPoly; 

{ 

FILE *outStream; 
int i, j ; 

polygonData *poly; 
char sb0ut[256]; 

sprintf (sbOut, "%d\n", mPoly->nPolygons ) ; 

cmSendString(fd, sbOut); 

for (i = 0; i < mPoly->nPolygons ; i++) { 

poly = &mPoly->polygons [i] ; 

sprintf (sbOut, "%d\n", poly->nPoints ) ; 

cmSendString(fd, sbOut); 

for (j = 0; j < poly->nPoints ; j++) { 
if (fUseNormals) { 
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sprintf (sbOut, "%lf %lf %lf %f %f %f\n", 

poly->array [j ] [0] , 

poly->array [j ] [1] , 

poly->array [j ] [2] , 

poly->normals [ j ] [0] , 

poly->normals [ j ] [1] , 

poly->normals [j ] [2] ) ; 
} else { 
sprintf (sbOut, "%lf %lf %lf\n", 

poly->array [j ] [0] , 

poly->array [j ] [1] , 

poly->array [j ] [2] ) ; 

} 

cmSendString(fd, sbOut); 

} 

} 

} 

void 

writePolyImage(outStream, mPoly) 
FILE *outStream; 
mPolygonData *mPoly; 

{ 

int i, j ; 

polygonData *poly; 

f printf (outSt ream, "%d\n", mPoly->nPolygons ) ; 
for (i = 0; i < mPoly->nPolygons ; i++) { 

poly = &mPoly->polygons [i] ; 

f printf (outStream, "%d\n", poly->nPoints ) ; 

for (j = 0; j < poly->nPoints ; j++) { 

if (fUseNormals) { 
fprintf (outStream, "%lf %lf %lf %f %f %f\n", 

poly->array [j ] [0] , 

poly->array [j ] [1] , 

poly->array [j ] [2] , 

poly->normals [ j ] [0] , 

poly->normals [ j ] [1] , 

poly->normals [j ] [2] ) ; 
} else { 

fprintf (outStream, "%lf %lf %lf\n", 
poly->array [j ] [0] , 
poly->array [j ] [1] , 
poly->array [j ] [2] ) ; 

} 

} 

} 

} 

void 

f reePolylmage(mPoly) 

mPolygonData *mPoly; 
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{ 

int i, j ; 

polygonData *poly; 

for (i = 0; i < mPoly->nPolygons ; i++) { 
poly = &mPoly->polygons [i] ; 
f ree( poly->array) ; 
f ree(poly->normals) ; 
if (poly->scratch) { 
f ree(poly->scratch) ; 

} 

} 

f ree(mPoly->polygons) ; 
f ree(mPoly) ; 



computelmageNormals (mPoly) 
mPolygonData *mPoly; 

{ 

int i, j ; 

polygonData *poly; 

int jjl, jj2; 

for (i = 0; i < mPoly->nPolygons ; i++) { 

poly = &mPoly->polygons [i] ; 

if (poly->nPoints < 3) { 

fprintf (stderr, "computelmageNormals ( ) — poly has < 3pts\n"); 

} 

for (j = 0; j < poly->nPoints ; j++) { 
jjl = j + 1; 

if (jjl >= poly->nPoints) { 
jjl -= poly->nPoints; 
} 

jj2 = j + 2; 

if (jj2 >= poly->nPoints) { 
jj2 -= poly->nPoints; 
} 

if (fCWPolys) { /* clockwise */ 
if (PlaneNormalFromBPts (poly->array [j ] , poly->a may [ j j 1] , 
poly->array [j j2] , poly->normal) == 1) { 

break; 

} 

} else {/* counterclockwise */ 
if (PlaneNormalFrom3Pts(poly->array [j j2] , poly->array [ j j 1] , 
poly->array [ j ] , poly->normal) == 1) { 

break; 

} 

} 

} 

if (j == poly->nPoints) { 

fprintf (stderr, "computelmageNormals ( ) — poly pts are collinear\n" ) ; 

} 

/* flat shaded for now */ 

for (j = 0; j < poly->nPoints ; j++) { 
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memcpy(poly->normals [ j ] , poly->normal, sizeof ( float ) * 3); 

} 

} 

} 

mPolygonData * 
readPolylmageNoCount ( inSt ream) 
FILE *inStream; 

{ 

int i, j ; 

mPolygonData *mPoly; 

polygonData *poly; 

int nPolygons = 1024; 

mPoly = (mPolygonData *) malloc(sizeof (mPolygonData) ) ; 
mPoly->polygons = (polygonData *) malloc(sizeof (polygonData) * 
nPolygons) ; 

memset (mPoly->polygons, 0, sizeof ( polygonData ) *mPoly->nPolygons ) ; 
mPoly->nPolygons = 0; 
i = 0; 
while (1) { 

if (i == nPolygons) { 
nPolygons *= 2; 

mPoly->polygons = (polygonData *) realloc (mPoly->polygons , 

sizeof (polygonData) * nPolygons); 
memset (&mPoly->polygons [nPolygons/2] , 0, sizeof (polygonData) 
nPolygons/2) ; 

} 

poly = &mPoly->polygons [i] ; 

if (f scant ( inStream, "%d", &poly->nPoints ) == EOF) { 
break; 

} 

mPoly->nPolygons++; 
i++; 

poly->array = (double (*)[3]) malloc(sizeof (double) * 

3 * poly->nPoints ) ; 
poly->normals = (float (*) [3] ) malloc ( sizeof ( float ) * 
3 * poly->nPoints ) ; 

for (j = 0; j < poly->nPoints ; j++) { 

if (fUseNormals) { 
f scant ( inSt ream, "%lf %lf %lf %lf %lf %lf " , 

&poly->array [ j ] [0] , 

&poly->array [ j ] [1] , 

&poly->array [ j ] [2] , 

&poly->normals [j ] [0] , 

&poly->normals [j ] [1] , 

&poly->normals [j ] [2] ) ; 
} else { 
f scant (inStream, "%lf%lf%lf", 

&poly->array [ j ] [0] , 

&poly->array [ j ] [1] , 
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&poly->array [ j ] [2] ) ; 

} 

} 

} 

if ( IfUseNormals) { 

computelmageNormals (mPoly) ; 

} 

mPoly->polygons = (polygonData *) realloc(mPoly->polygons, mPoly-> 
nPolygons * 

sizeof (polygonData) ) ; 

return mPoly; 



mPolygonData * 
copyPolyImage( inmPoly) 

mPolygonData *inmPoly; 

{ 

int i, j ; 

mPolygonData *mPoly; 
polygonData *poly; 
polygonData *inpoly; 

mPoly = (mPolygonData *) malloc(sizeof (mPolygonData) ) ; 
mPoly->nPolygons = inmPoly->nPolygons ; 

mPoly->polygons = (polygonData *) malloc(sizeof (polygonData) * 

mPoly->nPolygons ) ; 
for (i = 0; i < mPoly->nPolygons ; i++) { 

poly = &mPoly->polygons [i] ; 

inpoly = &inmPoly->polygons [i] ; 

poly->nPoints = inpoly->nPoints ; 

poly->array = (double (*)[3]) malloc(sizeof (double) * 

3 * poly->nPoints) ; 
poly->normals = (float (*) [3] ) malloc ( sizeof ( float ) * 
3 * poly->nPoints ) ; 

memcpy(poly->array, inpoly->a rray, sizeof (double) * 

3 * poly->nPoints ) ; 
memcpy(poly->normals, inpoly->normals, sizeof (double) * 

3 * poly->nPoints) ; 

} 

return mPoly; 

} 

void 

set PolyNormMode (mode) 

int mode; 

{ 

fUseNormals = mode; 

} 

void 

set PolyOrientMode( mode) 
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int mode; 

{ 

fCWPolys = mode; 

} 

int 

getPolyNormMode( ) 
{ 

return fUseNormals; 

} 

int 

getPolyOrientMode( ) 
{ 

return fCWPolys; 

} 

int 

PlaneNormalFromSPts (vl, v2, v3, norm) 

double vl[3], v2[3], v3[3]; 

float norm [3] ; 

{ 

double u[3], v[3], A, B, C, D; 

int i; 

for (i = 0; i < 3; i++) { 
u[i] = vl[i] - v2[i]; 
v[i] = v3[i] - v2[i] ; 

} 

A = u[l] * v[2] - v[l] * u[2] ; 
B = u[2] * v[0] - u[0] * v[2] ; 
C = u[0] * v[l] - u[l] * v[0] ; 
D = -(A * vl[0] + B * vl[l] + C * vl[2]); 

norm [0] = A; 
normil] = B; 
norm[2] = C; 

/* check if the three points were collinear */ 

if ((fabs(A) == 0.0) && (fabs(B) == 0.0) && (fabs(C) == 0.0)) { 

fprintf (stderr, " PlaneNormalFrom3Pts ( )->collinear points!\n"); 
fprintf (stderr, "[0] %lf %lf %lf [1] %lf %lf %lf [2] %lf %lf %lf\n", 

vl[0] ,vl[l] ,vl[2] ,v2[0] ,v2[l] ,v2[2] , v3 [0] , v3 [1] , v3 [2] ) ; 
fprintf (stderr, " set plane normal to (0,0,l)\n"); 
norm[0] = 0; 
norm[l] = 0; 
norm[2] = 1; 
return (0); 

} 

normalizeNormal(norm) ; 
return (1); 

} 
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void 

normalizeNormal ( pNormal) 

float *pNormal; 

{ 

double tmpSum; 
int i; 

tmpSum = 0.0; 

for (i = 0; i < 3; i++) { 

tmpSum += pNormal[i] * pNormal[i]; 

} 

tmpSum = sqrt (tmpSum) ; 
for (i = 0; i < 3; i++) { 

pNormal[i] = pNormal[i] / tmpSum; 

} 



void 

normalizeDblVector(pNormal) 
double *pNormal; 

{ 

double tmpSum; 
int i; 

tmpSum = 0.0; 

for (i = 0; i < 3; i++) { 

tmpSum += pNormal[i] * pNormal[i]; 

} 

tmpSum = sqrt (tmpSum) ; 
for (i = 0; i < 3; i++) { 

pNormal[i] = pNormal[i] / tmpSum; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <ctype.h> 

#in elude <shast ra/solid/indexPolyH. h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 
#include <shast ra/network/ server. h> 

#define STANDALONEnn 

static char sbOut [5120] ; 

int 

IndexPolyOuKfd, pIPoly) 

int fd; 

IndexPoly *pIPoly; 

{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_IndexPoly(&xdrs, pIPoly)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 
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/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_IndexPoly(mplexXDRSEnc(fd) , pIPoly)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 

int 

IndexPolyIn(fd, pIPoly) 
int fd; 
IndexPoly *pIPoly; 

{ 

XDR xdrs; 

int retVal = 0; 

IndexPolyXDRFree(pIPoly) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_IndexPoly(&xdrs, pIPoly)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_IndexPoly(mplexXDRSDec(fd) , pIPoly)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 



void 

inputIndexPoly( f p, pIPoly) 

FILE *fp; 

IndexPoly *pIPoly; 



{ 



int i, j ; 

fscanf(fp, "%u", &pIPoly->vertices. vertices_len) ; 
pIPoly->vertices . vertices_val = 

( IndexPolyVert *) malloc(sizeof (IndexPolyVert) * 
pIPoly->vertices.vertices_len) ; 
for (i = 0; i < pIPoly->vertices.vertices_len; i++) { 
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fscanf(fp, "%lf%lf%lf", 

&pIPoly->vertices . vertices_val [i] [0] , 
&pIPoly->vertices . vertices_val [i] [1] , 
&pIPoly->vertices . vertices_val [i] [2] ) ; 

} 

fscanf(fp, "%u", &pIPoly->edgeVerts . edgeVerts_len) ; 
pIPoly->edgeVerts . edgeVerts_val = 

( IndexPolyEdge *) malloc ( sizeof ( IndexPolyEdge) * 
pIPoly->edgeVerts . edgeVerts_len) ; 
for (i = 0; i < pIPoly->edgeVerts . edgeVerts_len ; i++) { 
fscanf(fp, "%d%d", 

&pIPoly->edgeVerts . edgeVerts_val [i] [0] , 
&pIPoly->edgeVerts.edgeVerts_val[i] [1] ) ; 

} 

fscanf(fp, "%u", &pIPoly->f aces . f aces_len) ; 
pIPoly->f aces . f aces_val = 

(faceEdges *) malloc ( sizeof ( faceEdges ) * 
pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

fscanf(fp, "%u", &pIPoly->f aces . f aces_val [i] . f aceEdges_len) ; 
pIPoly->f aces . f aces_val [i] . f aceEdges_val = 
(int *) malloc ( sizeof ( int ) * 

pIPoly->f aces . f aces_val [i] . f aceEdges_len ) ; 
for (j = 0; j < pIPoly->faces.faces_val[i] .faceEdges_len; j++) { 
fscanf(fp, "%d", 

&pIPoly->f aces . f aces_val [i] . f aceEdges_val [ j ] ) ; 

} 

} 



outputIndexPoly( f p, pIPoly) 
FILE *fp; 
IndexPoly *pIPoly; 

{ 

int i, j ; 

fprintf(fp, "%u\n", pIPoly->vertices . vertices_len) ; 

for (i = 0; i < pIPoly->vertices . vertices_len; i++) { 
fprintf(fp, "%lf %lf %lf\n", 

pIPoly->vertices . vertices_val [i] [0] , 
pIPoly->vertices . vertices_val [i] [1] , 
pIPoly->vertices . vertices_val [i] [2] ) ; 

} 

fprintf(fp, "%u\n", pIPoly->edgeVerts . edgeVerts_len) ; 

for (i = 0; i < pIPoly->edgeVerts.edgeVerts_len; i++) { 
fprintf(fp, "%d %d\n", 

pIPoly->edgeVerts . edgeVerts_val [i] [0] , 
pIPoly->edgeVerts . edgeVerts_val [i] [1] ) ; 

} 
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fprintf(fp, "%u\n", pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

fprintf (fp, "%u\n", pIPoly->f aces . f aces_val [i] . f aceEdges_len) ; 
for (j = 0; j < pIPoly->faces.faces_val[i] .faceEdges_len; j++) { 
fprintf(fp, "%d ", 

pIPoly->f aces . f aces_val [i] . f aceEdges_val [ j ] ) ; 

} 

fprintf(fp, "\n"); 

} 

} 



void 

f reel ndexPoly( pi Poly) 

IndexPoly *pIPoly; 

{ 

int i; 

f ree(pIPoly->vertices . vertices_val) ; 
f ree(pIPoly->edgeVerts . edgeVerts_val) ; 

for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

f ree(pIPoly->faces.faces_val[i] . f aceEdges_val) ; 

} 

free (pi Poly->f aces . faces_val) ; 
memset (pIPoly, 0, sizeof ( IndexPoly) ) ; 

} 

IndexPoly * 

copy IndexPoly (pi Poly, destpIPoly) 
IndexPoly *pIPoly; 
IndexPoly *destpIPoly; 



{ 



IndexPoly *newpIPoly; 
int i; 

if (pIPoly == NULL) { 
return NULL; 

} 

if (destpIPoly == NULL) { 

newpIPoly = (IndexPoly *) malloc ( sizeof ( IndexPoly )) ; 
} else { 

newpIPoly = destpIPoly; 

} 

destpIPoly->vertices . vert ice s_len = pIPoly->vertices . vert ice s_len ; 
destpIPoly->vertices . vertices_val = 

( IndexPolyVert *) malloc(sizeof (IndexPolyVert) * 
pIPoly->vertices.vertices_len) ; 
memcpy (destpIPoly->vertices . vertices_val, pIPoly->vertices . vertices_val, 
sizeof (IndexPolyVert) * 
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pIPoly->vertices . vertices_len ) ; 



destpIPoly->edgeVerts . edgeVerts_len = pIPoly->edgeVerts . edgeVerts_len ; 
destpIPoly->edgeVerts . edgeVerts_val = 

( IndexPolyEdge *) malloc ( sizeof ( IndexPolyEdge) * 
pIPoly->edgeVerts . edgeVerts_len) ; 
memcpy( destpIPoly->edgeVerts . edgeVerts_val, 
pIPoly->edgeVerts . edgeVerts_val, 
sizeof (IndexPolyEdge) * pIPoly->edgeVerts . edgeVerts_len) ; 

destpIPoly->f aces . f aces_len = pIPoly->f aces . f aces_len ; 
destpIPoly->f aces . f aces_val = 

(faceEdges *) malloc ( sizeof ( faceEdges ) * 
pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 
destpIPoly->f aces . f aces_val [i] . f aceEdges_len = 

pIPoly->f aces . f aces_val [i] . f aceEdges_len ; 
destpIPoly->f aces . f aces_val [i] . f aceEdges_val = 
(int *) malloc(sizeof (int) * 

pIPoly->f aces . f aces_val [i] . f aceEdges_len) ; 
memcpy( destpIPoly->f aces . f aces_val [i] . f aceEdges_val, 
pIPoly->f aces . f aces_val [i] . f aceEdges_val, 
sizeof (int) * pIPoly->f aces . f aces_val [i] . f aceEdges_len) ; 

} 

return destpIPoly; 



IndexPolyXDRFree(pIPoly) 
IndexPoly *pIPoly; 

{ 

xdr_f ree(xdr_IndexPoly, (char *) pIPoly) ; 
memset(pIPoly, 0, sizeof ( IndexPoly) ) ; 



IndexPoly * 
inputlPolyString(fd) 
int fd; 

{ 

IndexPoly *pIPoly; 
int i,j; 
char *sbln; 

pIPoly = (IndexPoly*)malloc(sizeof (IndexPoly) ) ; 
memset (pIPoly, 0, sizeof ( IndexPoly) ) ; 
sbin = cmReceiveSt ring ( f d ) ; 

sscanf(sbln, "%u", &pIPoly->vertices.vertices_len) ; 
f ree( sbIn) ; 

pIPoly->vertices . vertices_val = 
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( IndexPolyVert *) malloc(sizeof (IndexPolyVert) * 
pIPoly->vertices.vertices_len) ; 
for (i = 0; i < pIPoly->vertices.vertices_len; i++) { 
sbin = cmReceiveString(fd) ; 
sscanf(sbln, "%lf%lf%lf", 

&pIPoly->vertices.vertices_val [i] [0] , 
&pIPoly->vertices.vertices_val [i] [1] , 
&pIPoly->vertices.vertices_val [i] [2] ) ; 
f ree( sbIn) ; 



sbIn = cmReceiveSt ring ( f d ) ; 

sscanf(sbln, "%u", &pIPoly->edgeVerts . edgeVerts_len) ; 
f ree( sbIn) ; 

pIPoly->edgeVerts . edgeVerts_val = 

(IndexPolyEdge *) malloc ( sizeof ( IndexPolyEdge) * 
pIPoly->edgeVerts . edgeVerts_len ) ; 
for (i = 0; i < pIPoly->edgeVerts . edgeVerts_len; i++) { 
sbIn = cmReceiveSt ring (f d) ; 
sscanf(sbln, "%d%d", 

&pIPoly->edgeVerts . edgeVerts_val [i] [0] , 
&pIPoly->edgeVerts.edgeVerts_val[i] [1] ) ; 
f ree( sbIn) ; 



sbIn = cmReceiveSt ring ( fd ) ; 

sscanf(sbln, "%u", &pIPoly->f aces . f aces_len) ; 

f ree( sbIn) ; 

pIPoly->f aces . f aces_val = 

(faceEdges *) malloc ( sizeof ( faceEdges ) * 
pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

char *iptr; 

sbIn = cmReceiveSt ring ( fd ) ; 

sscanf (sbIn, "%u", &pIPoly->f aces . f aces_val [i] . f aceEdges_len) ; 
f ree( sbIn) ; 

pIPoly->f aces . f aces_val [i] . f aceEdges_val = 
(int *) malloc ( sizeof ( int ) * 

pIPoly->f aces . f aces_val [i] . f aceEdges_len ) ; 
iptr = sbIn = cmReceiveSt ring ( fd ) ; 

for (j = 0; j < pIPoly->faces.faces_val[i] .faceEdges_len; j++) { 
while( ( !isdigit(*iptr) ) && (*ipt r !='-')) { 
iptr++/*skip nonnumerics*/; 

} 

sscanf(iptr, "%d", 

&pIPoly->f aces . f aces_val [i] . f aceEdges_val [ j ] ) ; 
if (*iptr == '-' ){ 
iptr++; 

} 

while(isdigit(*iptr) ) ipt r++/*skip numerics*/; 

} 

f ree( sbIn) ; 
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return pIPoly; 

} 

void 

outputIPolyString(fd, pIPoly) 
int fd; 

IndexPoly *pIPoly; 

{ 

int i,j; 

sprintf (sbOut, "%u\n", pIPoly->vertices.vertices_len) ; 
cmSendString(fd, sbOut) ; 

for (i = 0; i < pIPoly->vertices.vertices_len; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 

pIPoly->vertices . vertices_val [i] [0] , 

pIPoly->vertices . vertices_val [i] [1] , 

pIPoly->vertices . vertices_val [i] [2] ) ; 
cmSendString(fd, sbOut) ; 

} 

sprintf (sbOut, "%u\n", pIPoly->edgeVerts . edgeVerts_len) ; 
cmSendString (fd, sbOut) ; 

for (i = 0; i < pIPoly->edgeVerts . edgeVerts_len; i++) { 
sprintf (sbOut, "%d %d\n", 

pIPoly->edgeVerts . edgeVerts_val [i] [0] , 

pIPoly->edgeVerts . edgeVerts_val [i] [1] ) ; 
cmSendString(fd, sbOut) ; 

} 

sprintf (sbOut, "%u\n", pIPoly->f aces . f aces_len) ; 
cmSendString (fd, sbOut) ; 

for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 
char *optr; 

sprintf ( sbOut, "%u\n", pIPoly->f aces . f aces_val [i] . f aceEdges_len) ; 
cmSendString(fd, sbOut) ; 
optr = sbOut; 

for (j = 0; j < pIPoly->faces.faces_val[i] .faceEdges_len; j++) { 
sprintf (optr, "%d ", 

pIPoly->f aces . f aces_val [i] . f aceEdges_val [ j ] ) ; 
optr += strlen(optr) ; 

} 

sprintf (optr, "\n"); 
cmSendString(fd, sbOut) ; 

} 

} 



#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 
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IndexPolyMain(argc, argv) 

#endif /* STANDALONE */ 

int argc; 

char **argv; 

{ 

IndexPoly sIPoly; 
IndexPoly cpIPoly; 

switch (argc) { 

case 1: /* receive sId */ 

IndexPolyIn(0 /* stdin */ , &sIPoly) ; 

outputIPoly(stdout, &sIPoly) ; 

cpIPoly = sIPoly; 

outputIPoly( stdout, &cpIPoly) ; 

break; 

case 2: /* receive sId */ 

inputIndexPoly( stdin, &sIPoly) ; 
#ifdef DEBUG 

outputIndexPoly( stderr, &sIPoly) ; 

#endif 

IndexPolyOutd /* stdout */ , &sIPoly); 
break; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 

#include <shast ra/solid/indexPoly . h> 

bool_t 

xdr_IndexPolyVert(xdrs, objp) 
XDR *xdrs; 
IndexPolyVert objp; 

{ 

if ( !xdr_vector(xdrs, (char*)objp, 3, sizeof (double) , xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_IndexPolyEdge(xdrs, objp) 
XDR *xdrs; 
IndexPolyEdge objp; 

{ 

if ( !xdr_vector(xdrs, (char *)objp, 2, sizeof (int), xdr_int)) { 
return (FALSE); 

} 

return (TRUE); 

} 
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bool_t 

xdr_faceEdges(xdrs, objp) 
XDR *xdrs; 
faceEdges *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->f aceEdges_val, (u_int *)&objp-> 
f aceEdges_len, ~0, sizeof(int), xdr_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_IndexPoly(xdrs, objp) 
XDR *xdrs; 
IndexPoly *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&objp->vertices.vertices_val, (u_int *)& 
objp->vertices.vertices_len, ~0, sizeof ( IndexPolyVert ) , 
xdr_IndexPolyVert) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->edgeVerts . edgeVerts_val, (u_int *) 
&obj p->edgeVerts . edgeVerts_len, ~0, sizeof ( IndexPolyEdge) , 
xd r_IndexPolyEdge) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->f aces . f aces_val, (u_int *)&objp-> 
faces . faces_len, ~0, sizeof ( faceEdges ) , xd r_f aceEdges ) ) { 
return (FALSE); 

} 

return (TRUE); 



Page 2 of 2 



iSolid_xdr.c 



7/5/1 1 3:00 PM 



***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* Please do not edit this file. 

* It was generated using rpcgen. 

*/ 

#include <rpc/rpc.h> 
#include <ipoly/iPoly . h> 
#include <shast ra/solid/iSolid . h> 

bool_t 

xdr_polyTermD(xdrs, objp) 
XDR *xdrs; 
polyTermD *objp; 



{ 



} 



if ( !xdr_double(xdrs, &obj p->coef f ) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *)objp->expon, ISOLID_DIM, sizeof (short) , 
xdr_short)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_polySpaD(xdrs, objp) 
XDR *xdrs; 
polySpaD *objp; 

{ 
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if ( !xdr_array(xdrs, (char **)&obj p->polySpaD_val, (u_int *)&objp-> 
polySpaD_len, ~0, sizeof ( polyTermD) , xd r_polyTermD) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_hypRange(xdrs, objp) 
XDR *xdrs; 
hypRange objp; 

{ 

if ( !xdr_vector(xdrs, (char*)objp, ISOLID_DIMR, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_simpVertD(xdrs, objp) 
XDR *xdrs; 
simpVertD objp; 

{ 

if ( !xdr_vector(xdrs, (char *)objp, ISOLID_DIM, sizeof (double) , 
xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_bernMixedD(xdrs, objp) 
XDR *xdrs; 
bernMixedD *objp; 

{ 

if ( !xdr_short(xdrs, &obj p->deg ree) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *)objp->verts, ISOLID_DIMH, sizeof 
( SimpVertD) , xdr_simpVertD) ) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *)objp->degrees, ISOLID_DIM, sizeof ( short ) , 
xdr_short)) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *) obj p->hyper, ISOLID_DIM, sizeof ( hypRange) 
, xdr_hypRange) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->coef f s . coef f s_val, (u_int *)&objp- 
>coef f s . coef f s_len, ~0, sizeof (double) , xdr_double)) { 
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return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_bsKnots(xdrs, objp) 
XDR *xdrs; 
bsKnots *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->bsKnots_val, (u_int *)&objp-> 
bsKnots_len, ~0, sizeof (double) , xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_bSplineD(xdrs, objp) 
XDR *xdrs; 
bSplineD *objp; 

{ 

if ( !xdr_vector(xdrs, (char *)objp->degrees, ISOLID_DIM, sizeof ( short ) , 
xdr_short)) { 
return (FALSE); 

} 

if ( !xdr_vector(xdrs, (char *) obj p->knots, ISOLID_DIM, sizeof ( bsKnots ) , 
xdr_bsKnots) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->coef f s . coef f s_val, (u_int *)&objp- 
>coef f s . coef f s_len, ~0, sizeof (double) , xdr_double)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_polyEqn(xdrs, objp) 
XDR *xdrs; 
polyEqn *objp; 

{ 

if ( !xdr_polySpaD(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_polyEqnP(xdrs, objp) 
XDR *xdrs; 
polyEqnP *objp; 

{ 
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if ( !xdr_pointer(xdrs, (char **)objp, sizeof (polyEqn) , xdr_polyEqn) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_bernEqn(xdrs, objp) 
XDR *xdrs; 
bernEqn *objp; 

{ 

if ( !xdr_bernMixedD(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_bernEqnP(xdrs, objp) 
XDR *xdrs; 
bernEqnP *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (bernEqn) , xdr_bernEqn) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_bSplineEqn(xdrs, objp) 
XDR *xdrs; 
bSplineEqn *objp; 

{ 

if ( !xdr_bSplineD(xdrs, objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_bSplineEqnP(xdrs, objp) 
XDR *xdrs; 
bSplineEqnP *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof (bSplineEqn) , 
xdr_bSplineEqn) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_eqnType(xdrs, objp) 
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XDR *xdrs; 
eqnType *objp; 

if ( !xdr_enum(xdrs, (enum_t *)objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_solBernP(xdrs, objp) 
XDR *xdrs; 
solBernP *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( st ruct solBern), 
xd r_solBern) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_solBern(xdrs, objp) 
XDR *xdrs; 
solBern *objp; 

{ 

if ( !xdr_eqnType(xdrs, &obj p->type) ) { 
return (FALSE); 

} 

switch (objp->type) { 
case eqnIMPLI: 

if ( !xdr_array(xdrs, ( char **)&obj p->solBern_u . implicit . 

implicit_val, (u_int *)&obj p->solBern_u . implicit . implicit_len, 
~0, sizeof ( bernEqnP) , xdr_bernEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnRATION: 

if ( !xdr_array(xdrs, (char **)&obj p->solBern_u . rational . 

rational_val, (u_int *)&objp->solBern_u. rational. rational_len, 

~0, sizeof (bernEqnP) , xdr_bernEqnP) ) { 

return (FALSE); 

} 

break; 
case eqnPARAM: 

if ( !xdr_array(xdrs, (char **)&objp->solBern_u.param.param_val, 

(u_int *)&objp->solBern_u.param.param_len, ~0, sizeof ( bernEqnP) 
, xd r_bernEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnRATPAR: 

if ( !xdr_array(xdrs, (char **)&objp->solBern_u. ratpar. ratpar_val, 
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(u_int *)&objp->solBern_u. ratpar. ratpar_len, ~0, sizeof 
(bernEqnP), xd r_bernEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnPATCH: 

if ( !xdr_array(xdrs, (char **)&obj p->solBern_u . patches . patches_val, 
(u_int *)&objp->solBern_u. patches. patches_len, ~0, sizeof 
(solBernP), xd r_solBernP) ) { 
return (FALSE); 

} 

break; 

} 

return (TRUE); 



bool_t 

xdr_solPolyP(xdrs, objp) 
XDR *xdrs; 
solPolyP *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( st ruct solPoly), 
xdr_solPoly) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_solPoly(xdrs, objp) 
XDR *xdrs; 
solPoly *objp; 

{ 

if ( !xdr_eqnType(xdrs, &obj p->type) ) { 
return (FALSE); 

} 

switch (objp->type) { 
case eqnIMPLI: 

if ( !xdr_array(xdrs, (char **)&obj p->solPoly_u . implicit . 

implicit_val, (u_int *)&obj p->solPoly_u . implicit . implicit_len, 
~0, sizeof (polyEqnP) , xd r_polyEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnRATION: 

if ( !xdr_array(xdrs, (char **)&obj p->solPoly_u . rational . 

rational_val, (u_int *)&objp->solPoly_u. rational. rational_len, 

~0, sizeof (polyEqnP) , xd r_polyEqnP) ) { 

return (FALSE); 

} 

break; 
case eqnPARAM: 

if ( !xdr_array(xdrs, (char **)&objp->solPoly_u.param.param_val, 
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(u_int *)&objp->solPoly_u.param.param_len, ~0, sizeof ( polyEqnP) 
, xdr_polyEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnRATPAR: 

if ( !xdr_array(xdrs, (char **)&objp->solPoly_u. ratpar. ratpar_val, 
(u_int *)&objp->solPoly_u. ratpar. ratpar_len, ~0, sizeof 
(polyEqnP), xd r_polyEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnPATCH: 

if ( !xdr_array(xdrs, (char **)&obj p->solPoly_u . patches . patches_val, 
(u_int *)&objp->solPoly_u. patches. patches_len, ~0, sizeof 
(solPolyP), xdr_solPolyP) ) { 
return (FALSE); 

} 

break; 

} 

return (TRUE); 



bool_t 

xdr_solBSplineP(xdrs, objp) 
XDR *xdrs; 
solBSplineP *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( st ruct solBSpline), 
xdr_solBSpline) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_solBSpline(xdrs, objp) 
XDR *xdrs; 
solBSpline *objp; 

{ 

if ( !xdr_eqnType(xdrs, &obj p->type) ) { 
return (FALSE); 

} 

switch (objp->type) { 
case eqnIMPLI: 

if ( !xdr_array(xdrs, (char **)&obj p->solBSpline_u . implicit . 
implicit_val, (u_int *)&obj p->solBSpline_u . implicit . 
implicit_len, ~0, sizeof ( bSplineEqnP) , xd r_bSplineEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnRATION: 

if ( !xdr_array(xdrs, (char **)&objp->solBSpline_u. rational. 
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rational_val, (u_int *)&obj p->solBSpline_u . rational . 
rational_len, ~0, sizeof ( bSplineEqnP) , xd r_bSplineEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnPARAM: 

if ( !xdr_array(xdrs, (char **)&objp->solBSpline_u.param.param_val, 
(u_int *)&objp->solBSpline_u.param.param_len, ~0, sizeof 
(bSplineEqnP) , xd r_bSplineEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnRATPAR: 

if ( !xdr_array(xdrs, (char **)&objp->solBSpline_u. ratpar. ratpar_val 
, (u_int *)&objp->solBSpline_u. ratpar. ratpar_len, ~0, sizeof 
(bSplineEqnP), xd r_bSplineEqnP) ) { 
return (FALSE); 

} 

break; 
case eqnPATCH: 

if ( !xdr_array(xdrs, (char **)&objp->solBSpline_u. patches. 

patches_val, (u_int *)&objp->solBSpline_u. patches. patches_len, 
~0, sizeof (solBSplineP) , xd r_solBSplineP) ) { 
return (FALSE); 

} 

break; 

} 

return (TRUE); 



bool_t 

xdr_eqnBasis(xdrs, objp) 
XDR *xdrs; 
eqnBasis *objp; 

{ 

if ( !xdr_enum(xdrs, (enum_t *)objp)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_solEqn(xdrs, objp) 
XDR *xdrs; 
solEqn *objp; 

{ 

if ( !xdr_eqnBasis(xdrs, &obj p->type) ) { 
return (FALSE); 

} 

switch (objp->type) { 
case eqnPOLY: 

if ( !xdr_solPoly(xdrs, &obj p->solEqn_u . sPolyEqn) ) { 
return (FALSE); 
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} 

break; 
case eqnBERN: 

if ( !xdr_solBern(xdrs, &objp->solEqn_u. sBernEqn) ) { 
return (FALSE); 

} 

break; 
case eqnSPLINE: 

if ( !xdr_solBSpline(xdrs, &objp->solEqn_u. sBSplineEqn) ) { 
return (FALSE); 

} 

break; 

} 

return (TRUE); 



bool_t 

xdr_iSolEqn(xdrs, objp) 
XDR *xdrs; 
iSolEqn *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->iSolEqn_val, (u_int *)&objp-> 
iSolEqn_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolCycle(xdrs, objp) 
XDR *xdrs; 
iSolCycle *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->iSolCycle_val, (u_int *)&objp-> 
iSolCycle_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolFace(xdrs, objp) 
XDR *xdrs; 
iSolFace *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->iSolFace_val, (u_int *)&objp-> 
iSolFace_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 
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xdr_iSolVert(xdrs, objp) 
XDR *xdrs; 
iSolVert *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->iSolVert_val, (u_int *)&objp-> 
iSolVert_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolEdge(xdrs, objp) 
XDR *xdrs; 
iSolEdge *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->iSolEdge_val, (u_int *)&objp-> 
iSolEdge_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolidVerts(xdrs, objp) 
XDR *xdrs; 
iSolidVerts *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&objp->vMarks.vMarks_val, (u_int *)&objp- 
>vMarks . vMarks_len, ~0, sizeof ( u_long ) , xdr_u_long)) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&objp->vFaces.vFaces_val, (u_int *)&objp- 
>vFaces . vFaces_len, ~0, sizeof ( iSolFace) , xd r_iSolFace) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolidEdges(xdrs, objp) 
XDR *xdrs; 
iSolidEdges *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->eMarks . eMarks_val, (u_int *)&objp- 
>eMarks . eMarks_len, ~0, sizeof ( u_long ) , xdr_u_long)) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->eEqns . eEqns_val, (u_int *)&objp-> 
eEqns . eEqns_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->eFaces . eFaces_val, (u_int *)&objp- 
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>eFaces . eFaces_len, ~0, sizeof ( iSolFace) , xd r_iSolFace) ) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_iSolidCycles(xdrs, objp) 
XDR *xdrs; 
iSolidCycles *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&objp->cMarks.cMarks_val, (u_int *)&objp- 
>cMarks . cMarks_len, ~0, sizeof ( u_long ) , xdr_u_long)) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->cFaces . cFaces_val, (u_int *)&objp- 
>cFaces . cFaces_len, ~0, sizeof ( u_int ) , xdr_u_int)) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_iSolidFaces(xdrs, objp) 
XDR *xdrs; 
iSolidFaces *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->fMarks . fMarks_val, (u_int *)&objp- 
>fMarks . fMarks_len, ~0, sizeof ( u_long ) , xdr_u_long)) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->f Cycles . fCycles_val, (u_int *)& 
obj p->f Cycles . fCycles_len, ~0, sizeof ( iSolCycle) , xd r_iSolCycle) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->fVerts . fVerts_val, (u_int *)&objp- 
>fVerts. fVerts_len, ~0, sizeof ( iSolVert ) , xd r_iSolVert ) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->f Edges . fEdges_val, (u_int *)&objp- 
>f Edges . fEdges_len, ~0, sizeof ( iSolEdge) , xd r_iSolEdge) ) { 
return (FALSE); 

} 

if ( !xdr_array(xdrs, (char **)&obj p->f Eqns . f Eqns_val, (u_int *)&objp-> 
f Eqns . f Eqns_len, ~0, sizeof (iSolEqn) , xdr_iSolEqn) ) { 
return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_iSolidEqns(xdrs, objp) 
XDR *xdrs; 
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} 



iSolidEqns *objp; 

if ( !xdr_array(xdrs, (char **)&obj p->sEqns . sEqns_val, (u_int *)&objp- 
sEqns . sEqns_len, ~0, sizeof (solEqn) , xdr_solEqn)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolid (xdrs, objp) 
XDR *xdrs; 
iSolid *objp; 



{ 



} 



if ( !xdr_iPoly(xdrs, &objp->graph) ) { 
return (FALSE); 

} 

if ( !xdr_iSolidVerts(xdrs, &objp->verts) ) { 
return (FALSE); 

} 

if ( !xdr_iSolidEdges(xdrs, &obj p->edges ) ) { 
return (FALSE); 

} 

if ( !xdr_iSolidCycles(xdrs, &obj p->cycles ) ) { 
return (FALSE); 

} 

if ( !xdr_iSolidFaces(xdrs, &obj p->f aces ) ) { 
return (FALSE); 

} 

if ( !xdr_iSolidEqns(xdrs, &obj p->eqns ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolid_P(xdrs, objp) 
XDR *xdrs; 
iSolid_P *objp; 



} 



if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( iSolid ) , xdr_iSolid)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolids(xdrs, objp) 
XDR *xdrs; 
iSolids *objp; 

{ 

if ( !xdr_array(xdrs, (char **)&obj p->iSolids_val, (u_int *)&objp- 
iSolids_len, ~0, sizeof ( iSolid ) , xdr_iSolid)) { 
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return (FALSE); 

} 

return (TRUE); 

} 

bool_t 

xdr_iSolids_P(xdrs, objp) 
XDR *xdrs; 
iSolids_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( iSolids ) , xd r_iSolids ) ) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolidObj (xdrs, objp) 
XDR *xdrs; 
iSolidObj *objp; 

{ 

if ( !xdr_vector(xdrs, (char *) obj p->sbName, ISOLID_NMLEN, sizeof (char) , 
xdr_char)) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lIdTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lSIdTag ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lPerms ) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lType) ) { 
return (FALSE); 

} 

if ( !xdr_u_long(xdrs, &obj p->lMode) ) { 
return (FALSE); 

} 

if ( !xdr_pointer(xdrs, (char **)&objp->pISolid, sizeof ( iSolid ) , 
xdr_iSolid)) { 
return (FALSE); 

} 

return (TRUE); 



bool_t 

xdr_iSolidObj_P(xdrs, objp) 
XDR *xdrs; 
iSolidObj_P *objp; 

{ 

if ( !xdr_pointer(xdrs, (char **)objp, sizeof ( iSolidObj ) , xd r_iSolidObj ) 
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) { 

return (FALSE); 

} 

return (TRUE); 

} 



Page 14 of 14 



readSolid.c 



7/5/11 3:01 PM 



***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* readSolid.c - input functions for solid at the network interface 

* 

* readStringO 

* 

* readlndexO readAd j Item( ) readEqnItem( ) 

* 

* readVertex( ) readDEdgeO readEdgeO readCycleO readFaceO readSolidO 

* 

*/ 

#include <stdio.h> 
#include <ctype.h> 
#include <malloc.h> 

#include <shast ra/shilp. h> 
#include <poly/poly . h> 
#include <poly/polymath . h> 
#include <shast ra/solid/datadef s . h> 
#include <shast ra/solid/edgetypes . h> 
#include <shast ra/ sol id/eqn types . h> 
#include <shast ra/solid/bern . h> 

#include <shast ra/d raw/solid . h> 

#include <shast ra/network/ server. h> 
#include <shast ra/solid/readSolid . h> 
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Char *stdVars[3] = {"X", "Y", "Z"}; 

#define DEBUG 0 

/* 

* readIndex(fdSocket, iptr ) - read an index into iptr 

* 

* Input should be of the form: solid# object index# 

* 

* where solid# and index# are integers, and object = V,E,F,D, or C 
*/ 

void 

readIndex(fdSocket, iptr) 

int fdSocket; 
Index_Ptr iptr; 

{ 

char c; 
char *sbln; 

sbin = readString(fdSocket) ; 

sscanf(sbln, "%d %c %d", &ipt r->solid , &c, &ipt r->index) ; 
f ree( sbIn) ; 
#if DEBUG 

printf ("readlndex: %d %c %d\n", iptr->solid, c, ipt r->index) ; 
#endif 

switch (c) { 
case ' V : 

iptr->object = VERTEX; 

break; 
case ' E ' : 

iptr->object = EDGE; 

break; 
case ' F ' : 

iptr->object = FACE; 

break; 
case ' D ' : 

iptr->object = DEDGE; 

break; 
case ' C ' : 

iptr->object = CYCLE; 

break; 
default: 

fprintf (stderr, "Unexpected type \"%c\" in readlndex\n" , c); 
break; 

} 

} 

/* 

* readAd j Item( fdSocket, aptr ) - read an adjacency into item pointer 

* 
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* Input should be of the form Face_Index DEIn_Index DEOut_Index 

* 

*/ 
void 

readAdjItem(fdSocket, aptr) 

int fdSocket; 
AdjList_Ptr aptr; 

{ 

readIndex(fdSocket, &aptr->face) ; 
readIndex(fdSocket, &aptr->dEIn) ; 
readIndex(fdSocket, &apt r->dEOut ) ; 

} 

/* 

* readEquation(fdSocket ) - read an equation , create it and return it 
*/ 

Poly 

read Equal ion (fdSocket) 

int fdSocket; 

{ 

char *sbln; 
Poly eQN; 

eQN = Parse((sbln = readSt ring ( fdSocket ))) ; 
f ree( sbin) ; 

ConformPolyToVarsO, stdVars, eQN); 
return eQN; 

} 

/* 

* readEqnItem( fdSocket ) - read an equation item, create it and return it 
*/ 

EQNList_Ptr 
readEqnItem( fdSocket) 

int fdSocket; 

{ 

EQNList_Ptr New_Eqn = c reateEqnItem ( ) ; 
New_Eqn->eQN = readEquation ( fdSocket ) ; 
return (New_Eqn) ; 

} 

/* 

* readBernPar( fdSocket) - read bernstein-pa ramet ric eqn, return pointer 

* 

* Input should be of the form degree points... 
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*/ 

BernPar_Ptr 
readBernPar(fdSocket) 

int fdSocket; 

{ 

int degree; 
int i; 
BernPar_Ptr eqn; 
char *sbln; 



sbin = readString(fdSocket) ; 
sscanf(sbln, "%d", &degree); 
f ree( sbIn) ; 



/* 

* printf ("found bernstein par eqn of degree %d\n", degree); 
*/ 

if (degree <= 0) { 
return NULL; 

} 

eqn = ( BernPa r_Pt r) malloc(sizeof (BernPar) ) ; 
eqn->degree = degree; 
eqn->coeffs = (double (*)[3]) 

createMem(3 * (1 + degree) * sizeof (double) ) ; 

for (i = 0; i <= degree; i++) { 
sbIn = readString (fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(eqn->coeff s [i] [0] ) , 

&(eqn->coeffs [i] [1] ) , 

&(eqn->coeffs [i] [2] ) ) ; 
f ree( sbIn) ; 
/* 

* printfC'read coeff %f %f %f\n", (eqn->coef f s [i] [0] ) , 

* (eqn->coeff s [i] [1] ) , (eqn->coef f s [i] [2] ) ) ; 

*/ 

} 

return eqn; 

} 

/* 

* readBernParQuad ( fdSocket) - read bernstein-parametric eqn, return 

pointer 

* 

* Input should be of the form degree points... 

* 

*/ 

BernParQuad_Ptr 
readBernParQuad (fdSocket) 

int fdSocket; 
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int degree; 
int i; 
BernParQuad_Ptr eqn; 
char *sbln; 
sbin = readString(fdSocket) ; 
sscanf(sbln, "%d", &degree); 
f ree( sbIn) ; 

/* 

* printf ("found bernstein quad eqn of degree %d\n", degree); 
*/ 

if (degree <= 0) { 
return NULL; 

} 

eqn = ( BernPa rQuad_Pt r) malloc(sizeof (BernParQuad) ) ; 
eqn->degree = degree; 
eqn->coeffl = (double (*)[3]) 

createMem(3 * (1 + degree) * sizeof (double) ) ; 
eqn->coeff2 = (double (*) [3] ) 

createMem(3 * (1 + degree) * sizeof (double) ) ; 

for (i = 0; i <= degree; i++) { 
sbIn = readString (fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(eqn->coeffl[i] [0] ), 

&(eqn->coeffl[i] [1] ), 

&(eqn->coeffl[i] [2] ) ); 
f ree( sbIn) ; 
/* 

* printfC'read coeff %f %f %f\n", (eqn->coef f 1 [i] [0] ) , 

* (eqn->coeffl [i] [1] ) , (eqn->coef f 1 [i] [2] ) ) ; 

*/ 

} 

for (i = 0; i <= degree; i++) { 
sbIn = readString (fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(eqn->coeff2[i] [0] ), 

&(eqn->coeff2[i] [1] ), 

&(eqn->coeff2[i] [2] ) ); 
f ree( sbIn) ; 
/* 

* printfC'read coeff %f %f %f\n", (eqn->coef f 2 [i] [0] ) , 

* (eqn->coeff2[i] [1] ), (eqn->coef f 2 [i] [2] ) ) ; 

*/ 

} 

return eqn; 

} 

/* 

* readBernTensor( fdSocket) - read bernstein-parametric eqn, return 
pointer 
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* 

* Input should be of the form degree points... 

* 

*/ 

BernTensor_Ptr 
readBernTensor( f dSocket ) 

int fdSocket; 

{ 

int degree; 
int i; 
BernTensor_Pt r eqn; 
char *sbln; 
sbin = readString(fdSocket) ; 
sscanf(sbln, "%d", &degree); 
f ree( sbIn) ; 

/* 

* printf ("found bernstein tensor eqn of degree %d\n", degree); 
*/ 

if (degree <= 0) { 
return NULL; 

} 

eqn = ( BernTensor_Pt r) malloc ( sizeof ( BernTensor) ) ; 
eqn->degree = degree; 
eqn->coeffl = (double (*)[3]) 

createMem(3 * (1 + degree) * sizeof (double) ) ; 
eqn->coeff2 = (double (*) [3] ) 

createMem(3 * (1 + degree) * sizeof (double) ) ; 

for (i = 0; i <= degree; i++) { 
sbIn = readString (fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(eqn->coeffl[i] [0] ), 

&(eqn->coeffl[i] [1] ), 

&(eqn->coeffl[i] [2] ) ); 
f ree( sbIn) ; 
/* 

* printfC'read coeff %f %f %f\n", (eqn->coef f 1 [i] [0] ) , 

* (eqn->coeffl [i] [1] ) , (eqn->coef f 1 [i] [2] ) ) ; 

*/ 

} 

for (i = 0; i <= degree; i++) { 
sbIn = readString (fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(eqn->coeff2[i] [0] ), 

&(eqn->coeff2[i] [1] ), 

&(eqn->coeff2[i] [2] ) ); 
f ree( sbIn) ; 
/* 

* printfC'read coeff %f %f %f\n", (eqn->coef f 2 [i] [0] ) , 

* (eqn->coeff2[i] [1] ), (eqn->coef f 2 [i] [2] ) ) ; 

*/ 
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} 

sbin = readString(fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(eqn->tangent [0] ) , 

&(eqn->tangent [1] ) , 

&(eqn->tangent [2] ) ) ; 
f ree( sbIn) ; 
/* 

* printf (" read tangent %f %f %f\n", (eqn->tangent [0] ) , 

* (eqn->tangent [1] ) , (eqn->tangent [2] ) ) ; 
*/ 

return eqn; 

} 

/* 

* readVertex(f dSocket) - read in and create a single vertex return a 

pointer 

* to the vertex 

* 

* Input should be (assume preceeding "V" has been eaten): xval yval zval 

* #adjacencies adjl adj2 ... 

* 

*/ 

Vertex_Ptr 
readVertex(fdSocket) 

int fdSocket; 

{ 

Vertex_Ptr New_Vertex = createVertex( ) ; 

AdjList_Ptr last_adj ; 
int i, num_adj; 

double a, b, c; 

char *sbln; 

/* read in the point value */ 
sbIn = readString(fdSocket) ; 
sscanf(sbln, "%lf %lf %lf", 

&(New_Vertex->point [0] ) , 

&(New_Vertex->point [1] ) , 

&(New_Vertex->point [2] ) ) ; 
f ree( sbIn) ; 

/* read adjacencies */ 
sbIn = readString(fdSocket) ; 
sscanf(sbln, "%d", &num_adj); 
f ree( sbIn) ; 

/* 

* for (i = 0; i < num_adj ; i++) { last_adj = 

* New_Vertex->ad j acencies ; New_Vertex->ad j acencies = 

* createAdj Item( ) ; New_Vertex->ad j acencies->next = last_adj ; 

* readAdjItem(fdSocket, New_Vertex->adjacencies) ; } 
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*/ 

for (i = 0; i < num_adj ; i++) { 
if (i == 0) { 

last_adj = New_Vertex->adjacencies = createAd j Item( ) ; 
readAdjItem(fdSocket, last_adj ) ; 
} else { 

last_adj->next = createAd j Item( ) ; 
readAdjItem(fdSocket, last_adj->next) ; 
last_adj = last_adj->next ; 

} 

} 

return (New_Vertex) ; 



/* 

* readDEdge(fdSocket) - read in and create a new directed edge 

* 

* Input should be (assume D already eaten up) cycle_index rightorientation 

(int, 

* 0 or 1) edge_index next_de_index 
*/ 

DEdge_Ptr 

readDEdge(fdSocket) 

int fdSocket; 

{ 

DEdge_Ptr New_DEdge = createDEdge( ) ; 

char *sbln; 

readIndex(fdSocket, &New_DEdge->cycle) ; 
sbin = readString(fdSocket) ; 

sscanf(sbln, "%d", &New_DEdge->rightOrientation) ; 
f ree( sbIn) ; 

readIndex(fdSocket, &New_DEdge->edge) ; 
readIndex(fdSocket, &New_DEdge->nextDE) ; 

return (New_DEdge); 

} 

/* 

* readEdge(fdSocket) - read in and create an edge return a pointer to the 

* edge 

* 

* Input should be of the form (assume E eaten up): 

* 

* Name(string) Vl_index V2_index Type ("LINEAR" or "BERNSTEIN_PARAMETRIC" 

or 

* "UNKNOWN") tanl2_x tanl2_y tanl2_z tan21_x tan21_y tan21_z #of dedges 

* DirectedEdge_indexl DirectedEdge_index2 ... AUX_EQN or NO_AUX_EQN aux 

eqn, 

* as appropriate EQNS or NO_EQNS degree bernstein coeffs, as appropriate 
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* yi zi 

* 

*/ 

Edge_Ptr 

readEdge(fdSocket) 

int fdSocket; 

{ 

Edge_Ptr New_Edge = createEdge( ) ; 

DEList_Ptr last_de; 

int i, num_des, degree; 

char *sbln; 

BernPar_Ptr beqn; 



/* read edge name */ 

sbin = readString(fdSocket) ; 

sscanf(sbln, "%19s", New_Edge->name) ; 

New_Edge->name [19] = '\0'; 

f ree(sbln) ; 

/* read vertexl & vertex2 indices */ 
readIndex(fdSocket, &New_Edge->vertexl) ; 
readIndex(fdSocket, &New_Edge->vertex2) ; 



/* read edge type */ 

if (strncmp( (sbIn = readSt ring ( fdSocket )) , "LINEAR", st rlen (" LINEAR" ) ) == 
0) 

New_Edge->type = LINEAR; 
else if (strncmp(sbln, "BERNSTEIN-TENSOR", 
strlen("BERNSTEIN-TENSOR") ) == 0) 

New_Edge->type = BERNSTEIN_TENSOR_EDGE; 
else if (strncmp(sbln, "BERNSTEIN-PARAMETRIC", 
strlen("BERNSTEIN-PARAMETRIC") ) == 0) 

New_Edge->type = BERNSTEIN_PARAMETRIC; 
else if (strncmp(sbln, "UNKNOWN", st rlen ( "UNKNOWN" ) ) == 0) 

New_Edge->type = UNKNOWN; 
else { 

f printf ( stderr, "Unknown edge type in readEdge — %s\n", sbIn); 

} 



/* read tangents */ 

sbIn = readString(fdSocket) ; 

sscanf(sbln, "%lf %lf %lf", &New_Edge->tanl2 [0] , 

&New_Edge->tanl2 [1] , &New_Edge->tanl2 [2] ) ; 
f ree(sbln) ; 

sbIn = readString(fdSocket) ; 

sscanf(sbln, "%lf %lf %lf", &New_Edge->tan21 [0] , 

&New_Edge->tan21 [1] , &New_Edge->tan21 [2] ) ; 
f ree(sbln) ; 



/* read directed edges */ 
sbIn = readString(fdSocket) ; 
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sscanf(sbln, "%d", &num_des ) ; 

f ree( sbin) ; 

/* 

* for (i = 0; i < num_des; i++) { last_de = New_Edge->dEdges ; 

* New_Edge->dEdges = createDEdgeItem( ) ; readIndex(fdSocket, 

* &New_Edge->dEdges->dEdge) ; New_Edge->dEdges->next = last_de; } 
*/ 

for (i = 0; i < num_des; i++) { 
if (i == 0) { 

last_de = New_Edge->dEdges = createDEdgeItem( ) ; 
readIndex(fdSocket, &last_de->dEdge) ; 
} else { 

last_de->next = createDEdgeItem( ) ; 
readIndex(fdSocket, &last_de->next->dEdge) ; 
last_de = last_de->next ; 

} 

} 

/* read aux eqn */ 

if (strncmp( (sbIn = readSt ring ( f dSocket ) ) , 

"AUX_EQN", strlen("AUX_EQN") ) == 0) { 
f ree( sbIn) ; 

if (strncmp( (sbIn = readSt ring ( f dSocket ) ) , 
"IMPLICIT", strlen("IMPLICIT") ) == 0) { 
f ree(sbln) ; 

New_Edge->aux_Eqn = Parse((sbln = readSt ring ( f dSocket ))) ; 
f ree(sbln) ; 

ConformPolyToVarsO, stdVars, New_Edge->aux_Eqn) ; 
} else { 

fprintf (stderr, "Unknown Aux Equation Type - %s!\n", sbIn); 
f ree(sbln) ; 

} 

} else { 
f ree( sbIn) ; 

New_Edge->aux_Eqn = NULL; 



/* see if there is a bernstein eqn */ 

if (strncmp( (sbIn = readSt ring ( f dSocket )) , "EQNS", st rlen ( "EQNS" ) ) == 0) 
{ 

/* read in degree */ 
f ree( sbIn) ; 

if (strncmp( (sbIn = readSt ring ( f dSocket )) , "BERNSTEIN-PARAMETRIC", 
St rlen ( "BERNSTEIN-PARAMETRIC" ) ) == 0) { 
f ree(sbln) ; 

New_Edge->eqn = readBernPar(fdSocket) ; 
} else { 

fprintf ( stderr, "Unknown Edge Equation Type - %s!\n", sbIn); 
f ree(sbln) ; 

} 

} else { 
f ree( sbIn) ; 
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} 

return (New_Edge) ; 

} 

/* 

* readCycle(fdSocket) - read in, create and return a cycle 

* 

* Input should be of the form: 

* 

* face_index dedge_index 
*/ 

Cycle_Ptr 

readCycle(fdSocket) 

int fdSocket; 

{ 

Cycle_Ptr New_Cycle = createCycle( ) ; 

readIndex(fdSocket, &New_Cycle->f ace) ; 
readIndex(fdSocket, &New_Cycle->dEdge) ; 

return (New_Cycle); 

} 

/* 

* readFace(fdSocket) - read in and create a face return a pointer to the 

new 

* face 

* 

* Input should be of the form (assume F eaten): Name (string) Equation 

* (macsyma-f orm equation, unless bernstein) Normal_eqn_l (macsyma form) 

* Normal_eqn_2 " Normal_eqn_3 " #cycles cyclel cycle2 ... 
*/ 

Face_Ptr 

readFace(fdSocket) 

int fdSocket; 

{ 

Face_Ptr New_Face = createFace( ) ; 

EQNList_Ptr last_eqn, next_eqn; 
CycleList_Ptr last_cycle; 
int i, num_cycles; 

char *sbln; 

/* read name */ 

sbin = readString(fdSocket) ; 

sscanf(sbln, "%19s", New_Face->name) ; 

New_Face->name [19] = '\0'; 

f ree( sbIn) ; 
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/* read equation */ 

if (strncmp( (sbin = readSt ring ( f dSocket ) ) , 

"IMPLICIT", strlen("IMPLICIT") ) == 0) { 
f ree( sbIn) ; 

New_Face->equation = Parse((sbln = readSt ring ( f dSocket ) ) ) ; 
f ree( sbIn) ; 

Conf ormPolyToVars (3, stdVars, New_Face->equation) ; 
New_Face->type = IMPLICIT; 
} else if (strncmp(sbln, "BERNSTEIN_PARAMETRIC_QUAD" , strlen 
("BERNSTEIN_PARAMETRIC_QUAD") ) == 0) { 
f ree( sbIn) ; 

New_Face->type = BERNSTEIN_PARAMETRIC_QUAD; 
/* read it in */ 

New_Face->bernQuad = readBernParQuad(fdSocket) ; 
} else if (strncmp(sbln, "BERNSTEIN_TENSOR" , st rlen ( "BERNSTEIN_TENSOR" ) ) 
== 0) { 
f ree( sbIn) ; 

New_Face->type = BERNSTEIN_TENSOR; 
/* read it in */ 

New_Face->bernTens = readBernTensor(fdSocket) ; 
} else { 

f printf ( stderr, "Unknown Equation Type - %s!\n", sbIn); 
f ree( sbIn) ; 

} 

/* read the (three) normal equations */ 
New_Face->normal = readEqnltem(fdSocket) ; 
New_Face->normal->next = readEqnltem(fdSocket) ; 
New_Face->normal->next->next = readEqnltem(fdSocket) ; 

/* read in the cycles */ 
sbIn = readString(fdSocket) ; 
sscanf(sbln, "%d", &num_cycles ) ; 
f ree( sbIn) ; 
/* 

* last_cycle = New_Face->cycles ; 

* for (i = 0; i < num_cycles ; i++) { New_Face->cycles = 

* createCycleItem( ) ; readIndex(fdSocket, &New_Face->cycles->cycle) ; 

* New_Face->cycles->next = last_cycle; last_cycle = 

* New_Face->cycles ; } 
*/ 

for (i = 0; i < num_cycles ; i++) { 
if (i == 0) { 

last_cycle = New_Face->cycles = createCycleItem( ) ; 

readIndex(fdSocket, &last_cycle->cycle) ; 
} else { 

last_cycle->next = createCycleItem( ) ; 
readIndex(fdSocket, &last_cycle->next->cycle) ; 
last_cycle = last_cycle->next ; 

} 

} 

return (New_Face); 
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} 

/* 

* readSolid(fdSocket) - read in a solid from a file return a pointer to 

the 

* new solid 

* 

* Input should be as follows (assume the preceeding "S" has already been 

eaten 

* up) : 

* 

* #vert #edges #faces #dedges #cycles vertexl vertex2 . . . edgel edge2 . . . 

facel 

* f ace2 . . . dedgel dedge2 . . . cyclel cycle2 . . . 

* 

*/ 

Solid_Ptr 

readSolid(fdSocket) 

int fdSocket; 

{ 

Solid_Ptr New_Solid = createSolid 0 ; 

int i; 
Stack_Union object; 

int Num_Vertices, Num_Edges, Num_Faces, Num_DEdges, 

Num_Cycles; 
char *sbln; 

/* check for error, or solid */ 
sbin = readString(fdSocket) ; 

if (strncmp(sbln, "ERROR", st rlen ( "ERROR" ) ) == 0) { 
f ree( sbIn) ; 

f printf ( stderr, "%s\n", sbIn); 
return (NULL); 
} else { 
f ree( sbIn) ; 

} 

/* must be SOLID # */ 

sbIn = readString (fdSocket) ; 
sscanf(sbln, "%19s", New_Solid->name) ; 
New_Solid->name [19] = '\0'; 
f ree( sbIn) ; 

/* read # of vertices, edges, faces, dedges, cycles */ 

sbIn = readString (fdSocket) ; 
sscanf(sbln, "%d %d %d %d %d", &Num_Vertices, &Num_Edges, 

&Num_Faces, &Num_DEdges, &Num_Cycles ) ; 
f ree( sbIn) ; 

printf("#v %d #e %d #f %d #d %d #c %d\n", Num_Vertices, 
Num_Edges, Num_Faces, Num_DEdges, Num_Cycles); 
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/* read all the solid subcomponents */ 

printf (" reading vertices\n" ) ; 

for (i = 0; i < Num_Vertices ; i++) { 

object. vertex = readVertex( f dSocket ) ; 

sprintf (object. vertex->name, "v%d", i) ; 

AddObjToSolid(&object, VERTEX, New_Solid); 

} 

printf ("reading edges\n"); 

for (i = 0; i < Num_Edges; i++) { 

object. edge = readEdge(fdSocket) ; 

/* 

* sprintf (object . edge->name, "e%d" , i) ; 
*/ 

AddObjToSolid(&object, EDGE, New_Solid); 

} 

printf ("reading faces\n"); 

for (i = 0; i < Num_Faces; i++) { 

object. face = readFace(fdSocket) ; 

/* 

* sprintf(object. f ace->name, "f%d" , i) ; 

*/ 

AddObjToSolid(&object, FACE, New_Solid); 

} 

printf ("reading dedges\n"); 

for (i = 0; i < Num_DEdges ; i++) { 

object. dEdge = readDEdge(fdSocket) ; 

sprintf (object. dEdge->name, "de%d", i); 

AddObjToSolid(&object, DEDGE, New_Solid); 

} 

printf ("reading cycles\n"); 

for (i = 0; i < Num_Cycles ; i++) { 

object. cycle = readCycle(fdSocket) ; 

sprintf (object. cycle->name, "c%d", i); 

AddObjToSolid(&object, CYCLE, New_Solid); 

} 

return (New_Solid); 



solidData * 

readSolidData(fdSocket) 

int fdSocket; 

{ 

solidData *pSolid; 
char *sbln; 

pSolid = ( solidData*) createMem( sizeof ( solidData) ) ; 
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sbin = readString(fdSocket) ; 
St rcpy( pSolid->sbName, sbIn) ; 

sbIn = readString(fdSocket) ; 
sscanf(sbln, "%lu%lu%lu", 

&pSolid->lIdTag, 

&pSolid->lSIdTag, 

&pSolid->lPerms) ; 
f ree( sbIn) ; 

sbIn = readString(fdSocket) ; 
sscanf(sbln, "%d%d%d%d", 

&pSolid->dispMode, 

&pSolid->color, 

&pSolid->shade, 

&pSolid->dispInf o) ; 
f ree( sbIn) ; 

pSolid->pSolid = readSolid ( f dSocket ) ; 
return pSolid; 

} 

/* 

* createSolid. c - routines related to creating structures 

* 

* createMem( size ) createEntries( size ) createStack( size ) 

* 

* createAdjItem( ) createDEdgeItem( ) createEqnItem( ) createCycleItem( ) 

* 

* createVertex( ) createEdgeO createFaceO createDEdge( ) createCycle( ) 

* createSolid( ) 
*/ 



/* return malloc'ed memory, unless out, then crash */ 

char * 
createMem(size) 

unsigned size; 

{ 

char *block; 

if (size <= 0) { 

fprintf (stderr, "createMem( )->requested 0 bytes\n"); 
return NULL; 

} 

block = malloc(size) ; 
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if (block == NULL) { 

f printf ( stderr, "FATAL ERROR — out of memory in c reateMem\n" ) ; 

exit(l) ; 
} else { 

memset(block, 0, size); 

return (block); 

} 



/* 

* c reateEnt ries - create an array of Stack_Union 

*/ 

Stack_Union * 
createEnt ries (size) 

int size; 

{ 

return ( (Stack_Union *) createMem(sizeof (Stack_Union) * size)); 

} 

/* create a stack with initial size given */ 

Stack * 
createStack( size) 

int size; 

{ 

Stack *new_stack; 

new_stack = (Stack *) createMem(sizeof (Stack) ) ; 

new_stack->index = 0; 
new_stack->size = size; 

new_stack->ent ries = createEntries(size) ; 
return (new_stack); 

} 

/* 

* createAdjItem( ) 
*/ 

AdjList_Ptr 
createAdj Item( ) 
{ 

return ((struct AdjList *) createMem(sizeof (struct AdjList))); 

} 

/* 

* createDEdgeItem( ) 
*/ 
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DEList_Ptr 
createDEdgeItem( ) 
{ 

return ((struct DEList *) createMem(sizeof (struct DEList))); 

} 

/* 

* createEqnItem( ) 
*/ 

EQNList_Ptr 
createEqnItem( ) 
{ 

return ((struct EQNList *) createMem(sizeof (struct EQNList))); 

} 

/* 

* createCycleItem( ) 
*/ 

CycleList_Ptr 
createCycleItem( ) 
{ 

return ((struct CycleList *) createMem(sizeof (struct CycleList ) ) ) ; 

} 

/* 

* createVertex 
*/ 

Vertex * 
createVertex( ) 
{ 

return ((Vertex *) createMem(sizeof (Vertex) )) ; 

} 

/* 

* createEdge 
*/ 

Edge * 
createEdge( ) 
{ 

return ((Edge *) createMem(sizeof (Edge) ) ) ; 

} 

/* 

* createFace 
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*/ 

Face * 
createFace( ) 
{ 

return ((Face *) createMem(sizeof (Face) ) ) ; 

} 

/* 

* createDEdge 
*/ 

DEdge * 
createDEdge( ) 
{ 

return ((DEdge *) createMem(sizeof (DEdge) )) ; 

} 

/* 

* createCycle 
*/ 

Cycle * 
createCycle( ) 
{ 

return ((Cycle *) createMem(sizeof (Cycle) )) ; 

} 

/* 

* createSolid 
*/ 

Solid * 
createSolid ( ) 
{ 

Solid *new_solid = (Solid *) createMem(sizeof (Solid) ) ; 

new_solid->vertices = createStack(INITIAL_VERTICES) ; 
new_solid->edges = createStack( INITIAL_EDGES) ; 
new_solid->faces = createStack( INITIAL_FACES) ; 
new_solid->dEdges = createStack(INITIAL_DEDGES) ; 
new_solid->cycles = createStack(INITIAL_CYCLES) ; 
new_solid->name [0] = '\0'; 

return (new_solid); 

} 

/* 

* stack. c - routines related to stack manipulation 
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* 

* ReHashStack( stack ) AddObjToStack( sObject, stack ) AddObjToSolid ( 

sObject, 

* Type, Solid ) 

*/ 

/* ReHashStack - make the given stack bigger */ 

ReHashStack(stack) 

Stack_Ptr stack; 

{ 

int i; 

Stack_Union *new_entries = createEntries (2 * stack->size) ; 

for (i = 0; i < stack->size; i++) 
new_entries [i] = stack->ent ries [i] ; 

stack->size = 2 * stack->size; 
f ree(stack->entries) ; 
stack->ent ries = new_entries; 



/* AddObjToStack - add an object to the given stack */ 

AddObjToStack(sObject, kind, stack) 
Stack_Union *sObject; 
int kind; 
Stack_Ptr stack; 

{ 

switch (kind) { 
case VERTEX: 

stack->ent ries [stack->index++] . vertex = sObj ect->vertex; 
break; 
case EDGE: 

stack->entries [stack->index++] .edge = sObject->edge; 
break; 
case FACE: 

stack->entries [stack->index++] . face = sObject->face; 
break; 
case DEDGE: 

stack->entries [stack->index++] .dEdge = sObj ect->dEdge; 
break; 
case CYCLE: 

stack->entries [stack->index++] . cycle = sObj ect->cycle; 
break; 
default: 

f printf ( stderr, "Attempt to AddObjToStack unknown object type #%d\n", 

kind) ; 
exit(l) ; 
break; 
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} 

if ( ( stack->index + 1) == stack->size) 
ReHashStack(stack) ; 

} 

/* AddObjToSolid - add an object to the given solid */ 

AddObjToSolid(sObject, kind, S) 
Stack_Union *sObject; 
int kind; 
Solid_Ptr S; 

{ 

switch (kind) { 
case VERTEX: 

AddObjToStack(sObject, kind, S->vertices ) ; 

break; 
case EDGE: 

AddObjToStack(sObject, kind, S->edges); 
break; 
case FACE: 

AddObjToStack(sObject, kind, S->faces); 

break; 
case DEDGE: 

AddObjToStack(sObject, kind, S->dEdges); 

break; 
case CYCLE: 

AddObjToStack(sObject, kind, S->cycles); 

break; 
default: 

fprintf (stderr, "Attempt to AddObjToSolid unknown object type #%d\n", 

kind) ; 
exit(l) ; 
break; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <ctype.h> 

#in elude <shast ra/solid/vIndexPolyH. h> 
#include <shast ra/network/ server. h> 
#include <shast ra/network/mplex. h> 
#include <shastra/network/rpc.h> 

#define STANDALONEnn 

static char sbOut [5120] ; 

int 

vIndexPolyOuKfd, pIPoly) 

int fd; 
vIndexPoly *pIPoly; 
{ 

XDR xdrs; 

int retVal = 0; 

#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdout /* fdopen(fd, "w" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_ENCODE); 
if ( !xdr_vIndexPoly(&xdrs, pIPoly)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 
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/* 

* xdrstdio_create(mplexXDRSEnc(fd) , mplexOutStream(fd) , XDR_ENCODE); 

*/ 

if ( !xdr_vIndexPoly(mplexXDRSEnc(fd) , pIPoly)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 

int 

vIndexPolyIn ( f d , pIPoly) 

int fd; 
vIndexPoly *pIPoly; 
{ 

XDR xdrs; 

int retVal = 0; 

vlndexPolyXDRFree(pIPoly) ; 
#ifdef STANDALONE 
{ 

FILE *fp; 
fp = stdin /* fdopen(fd, " r" ) */ ; 
xdrstdio_create(&xdrs, fp, XDR_DECODE); 
if ( !xdr_vIndexPoly(&xdrs, pIPoly)) { 
retVal = -1; 

} 

} 

#else /* STANDALONE */ 

/* 

* xdrstdio_create(mplexXDRSDec(fd) , mplexInStream(fd) , XDR_DECODE); 

*/ 

if ( !xdr_vIndexPoly(mplexXDRSDec(fd) , pIPoly)) { 
retVal = -1; 

} 

#endif /* STANDALONE */ 

return retVal; 

} 



void 

inputVIndexPoly(f p, pIPoly) 

FILE *fp; 
vIndexPoly *pIPoly; 
{ 

int i, j ; 

fscanf(fp, "%u", &pIPoly->vertices. vertices_len) ; 
pIPoly->vertices . vertices_val = 

( vIndexPolyVert *) malloc ( sizeof ( vIndexPolyVert ) * 
pIPoly->vertices.vertices_len) ; 
for (i = 0; i < pIPoly->vertices.vertices_len; i++) { 
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fscanf(fp, "%lf%lf%lf", 

&pIPoly->vertices . vertices_val [i] [0] , 
&pIPoly->vertices . vertices_val [i] [1] , 
&pIPoly->vertices . vertices_val [i] [2] ) ; 

} 

fscanf(fp, "%u", &pIPoly->faces.faces_len) ; 
pIPoly->f aces . f aces_val = 

(faceVerts *) malloc ( sizeof ( f aceVerts ) * 
pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

fscanf(fp, "%u", &pIPoly->f aces . f aces_val [i] . f aceVerts_len) ; 
pIPoly->f aces . f aces_val [i] . f aceVerts_val = 
(int *) malloc ( sizeof ( int ) * 

pIPoly->f aces . f aces_val [i] . f aceVerts_len) ; 
for (j = 0; j < plPoly->faces.faces_val[i] .faceVerts_len; j++) { 
fscanf(fp, "%d", 

&pIPoly->f aces . f aces_val [i] . f aceVerts_val [ j ] ) ; 

} 

} 



void 

outputVIndexPoly(f p, pIPoly) 

FILE *fp; 
vIndexPoly *pIPoly; 
{ 

int i,j; 

fprintf(fp, "%u\n", pIPoly->vertices . vertices_len) ; 
for (i = 0; i < pIPoly->vertices . vertices_len; i++) { 
fprintf(fp, "%lf %lf %lf\n", 

pIPoly->vertices . vertices_val [i] [0] , 

pIPoly->vertices . vertices_val [i] [1] , 

pIPoly->vertices . vertices_val [i] [2] ) ; 

} 

fprintf(fp, "%u\n", pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

fprintf (fp, "%u\n", pIPoly->f aces . f aces_val [i] . f aceVerts_len) ; 
for (j = 0; j < plPoly->faces.faces_val[i] .faceVerts_len; j++) { 
fprintf(fp, "%d ", 

pIPoly->f aces . f aces_val [i] . f aceVerts_val [ j ] ) ; 

} 

fprintf(fp, "\n"); 

} 

} 



void 

f reeVIndexPoly(pIPoly) 
vIndexPoly *pIPoly; 
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} 



f ree( pIPoly->vertices . vertices_val) ; 

for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

f ree(pIPoly->faces. faces_val [i] . f aceVerts_val) ; 

} 

f ree( pIPoly->f aces . f aces_val) ; 

memset ( pIPoly, 0, sizeof ( vIndexPoly ) ) ; 



vIndexPoly * 

copyVIndexPoly( pIPoly, destpIPoly) 

vIndexPoly *pIPoly; 

vIndexPoly *destpIPoly; 

{ 

vIndexPoly *newpIPoly; 
int i; 

if (pIPoly == NULL) { 
return NULL; 

} 

if (destpIPoly == NULL) { 

newpIPoly = (vIndexPoly *) malloc ( sizeof (vIndexPoly) ) ; 
} else { 

newpIPoly = destpIPoly; 

} 

des t pi Poly->vert ices .vert ices_len = pIPoly->vertices . vertices_len ; 
destpIPoly->vertices . vertices_val = 

(vIndexPolyVert *) malloc ( sizeof (vIndexPolyVert ) * 
pIPoly->vertices.vertices_len) ; 
memcpy(destpIPoly->vertices . vertices_val, 
pIPoly->vertices . vertices_val, 
sizeof (vIndexPolyVert ) * 
pIPoly->vertices . vertices_len ) ; 

destpIPoly->f aces . f aces_len = pIPoly->f aces . f aces_len ; 
destpIPoly->f aces . f aces_val = 

(faceVerts *) malloc ( sizeof ( faceVerts ) * 
pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 
destpIPoly->f aces . f aces_val [i] . f aceVerts_len = 

pIPoly->f aces . f aces_val [i] . f aceVerts_len ; 
destpIPoly->f aces . f aces_val [i] . f aceVerts_val = 
(int *) malloc ( sizeof ( int ) * 

pIPoly->f aces . f aces_val [i] . f aceVerts_len) ; 
memcpy( destpIPoly->f aces . f aces_val [i] . f aceVerts_val, 
pIPoly->f aces . f aces_val [i] . f aceVerts_val, 
sizeof (int) * pIPoly->f aces . f aces_val [i] . f aceVerts_len) ; 

} 

return destpIPoly; 
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void 

vlndexPolyXDRFree(pIPoly) 
vIndexPoly *pIPoly; 
{ 

xdr_f ree(xdr_vIndexPoly, (char*) pIPoly) ; 
memset(pIPoly, 0, sizeof ( vIndexPoly ) ) ; 

} 



vIndexPoly * 
inputVIndexPolyString (fd) 
int fd; 

{ 

vIndexPoly *pIPoly; 
int i,j; 
char *sbln; 

pIPoly = (vIndexPoly*)malloc(sizeof (vIndexPoly) ) ; 
memset (pIPoly, 0, sizeof (vIndexPoly) ) ; 
sbin = cmReceiveSt ring ( f d ) ; 

sscanf(sbln, "%u", &pIPoly->vertices.vertices_len) ; 
f ree( sbIn) ; 

pIPoly->vertices . vertices_val = 

(vlndexPolyVert *) malloc ( sizeof (vlndexPolyVert ) * 
pIPoly->vertices.vertices_len) ; 
for (i = 0; i < pIPoly->vertices.vertices_len; i++) { 
sbIn = cmReceiveSt ring (f d) ; 
sscanf(sbln, "%lf%lf%lf", 

&pIPoly->vertices.vertices_val [i] [0] , 
&pIPoly->vertices.vertices_val [i] [1] , 
&pIPoly->vertices.vertices_val [i] [2] ) ; 
f ree( sbIn) ; 

} 

sbIn = cmReceiveSt ring (fd) ; 

sscanf(sbln, "%u", &pIPoly->f aces . f aces_len) ; 

f ree( sbIn) ; 

pIPoly->f aces . f aces_val = 

(faceVerts *) malloc ( sizeof ( faceVerts ) * 
pIPoly->f aces . f aces_len) ; 
for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 

char *iptr; 

sbIn = cmReceiveSt ring ( fd ) ; 

sscanf(sbln, "%u", &pIPoly->f aces . f aces_val [i] . f aceVerts_len) 
f ree( sbIn) ; 

pIPoly->f aces . f aces_val [i] . f aceVerts_val = 
(int *) malloc(sizeof (int) * 

pIPoly->f aces . f aces_val [i] . f aceVerts_len ) ; 
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iptr = sbin = cmReceiveSt ring ( f d ) ; 

for (j = 0; j < plPoly->faces.faces_val[i] .faceVerts_len; j++) { 
while( ( !isdigit(*iptr) ) && (*ipt r !='-')) { 
iptr++/*skip nonnumerics*/; 

} 

sscanf(iptr, "%d", 

&pIPoly->f aces . f aces_val [i] . f aceVerts_val [ j ] ) ; 
if (*iptr == '-' ){ 
iptr++; 

} 

while(isdigit(*iptr) ) ipt r++/*skip numerics*/; 

} 

f ree( sbIn) ; 

} 

return pIPoly; 

} 

void 

outputVIndexPolyString (fd, pi Poly) 

int fd; 
vIndexPoly *pIPoly; 
{ 

int i, j ; 

sprintf (sbOut, "%u\n", pIPoly->vertices.vertices_len) ; 
cmSendString (fd, sbOut) ; 

for (i = 0; i < pIPoly->vertices . vertices_len; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 

pIPoly->vertices . vertices_val [i] [0] , 

pIPoly->vertices . vertices_val [i] [1] , 

pIPoly->vertices . vertices_val [i] [2] ) ; 
cmSendString(fd, sbOut) ; 

} 

sprintf (sbOut, "%u\n", pIPoly->f aces . f aces_len) ; 
cmSendString (fd, sbOut) ; 

for (i = 0; i < pIPoly->f aces . f aces_len; i++) { 
char *optr; 

sprintf ( sbOut, "%u\n", pIPoly->f aces . f aces_val [i] . f aceVerts_len) ; 
cmSendString(fd, sbOut) ; 
optr = sbOut; 

for (j = 0; j < plPoly->faces.faces_val[i] .faceVerts_len; j++) { 
sprintf (optr, "%d ", 

pIPoly->f aces . f aces_val [i] . f aceVerts_val [ j ] ) ; 
optr += strlen(optr) ; 

} 

sprintf (optr, "\n"); 
cmSendString(fd, sbOut) ; 

} 

} 
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#ifdef STANDALONE 
main(argc, argv) 

#else /* STANDALONE */ 

vIndexPolyMain(argc, argv) 

#endif /* STANDALONE */ 

int argc; 

char **argv; 

{ 

vIndexPoly sIPoly; 
vIndexPoly cpIPoly; 

switch (argc) { 

case 1: /* receive sId */ 

vIndexPolyIn(0 /* stdin */ , &sIPoly) ; 

outputVIndexPoly( stdout, &sIPoly) ; 

cpIPoly = sIPoly; 

outputVIndexPoly( stdout, &cpIPoly) ; 
break; 

case 2: /* receive sId */ 

inputVIndexPoly( stdin, &sIPoly) ; 
#ifdef DEBUG 

outputVIndexPoly ( stderr, &sIPoly) ; 

#endif 

vIndexPolyOut ( 1 /* stdout */ , &sIPoly) ; 
break; 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* write. c - output functions for the network interface 

* 

* writeString( ) 

* 

* writelndex( iptr ) writeAdj Item( aptr ) writeEqn(eptr) 

* 

* writeVertex( vptr) writeDEdge(deptr) writeEdge(eptr) writeCycle(cptr) 

* writeFace(f ptr) writeSolid ( spt r) 

* 

*/ 

#include <stdio.h> 

#include <shast ra/shilp. h> 
#include <poly/poly . h> 
#include <poly/polymath . h> 
#include <shast ra/solid/datadef s . h> 
#include <shast ra/solid/edgetypes . h> 
#include <shast ra/ sol id/eqn types . h> 
#include <shast ra/solid/bern . h> 

#in elude <shast ra/solid/writeSolid . h> 

static char sbOut [5120] ; 

char *sbVarNames [] = {"X", "Y", "Z"}; 

int iVarCount = 3; 

/* implicit power equations will always be in x,y & z */ 



Page 1 of 13 



writeSolid.c 



7/5/11 3:01 PM 



/* 

* writeString(fdSocket, s ) - write string 
*/ 
void 

writeString(fdSocket, s) 
int fdSocket; 
char *s; 

{ 

cmSendString(fdSocket, s); 



/* 

* writeStrings (fdSocket, n, strs) - strs n strings given n, char ** array 
*/ 

void 

writeStrings (fdSocket, number, names) 

int fdSocket; 

int number; 

char**names ; 

{ 

int i; 
int len; 

sprintf( sbOut ,"%d", number); 
writeSt ring (fdSocket, sbOut) ; 

if(number <= 0){ 
return ; 

} 

for (i = 0; i < number; i++) { 
sprintf( sbOut ,"%s", names[i]); 
writeSt ring (fdSocket, sbOut) ; 
} 

return ; 

} /* end readStrings */ 

/* 

* writelndex(f dSocket, iptr ) - write an index from iptr 
*/ 

void 

writeIndex(fdSocket, iptr) 
int fdSocket; 
Index_Ptr iptr; 

{ 

char c; 

switch (iptr->object) { 
case VERTEX: 

c = 'V ; 

break; 
case EDGE: 
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c = 'E' ; 

break; 
case FACE: 

c = 'F' ; 

break; 
case DEDGE: 

c = 'D' ; 

break; 
case CYCLE: 

c = 'C ; 

break; 
default: 

f printf ( stder r, "ERROR: Unexpected type %d in writelndex\n" , 

iptr->object) ; 
break; 

} 

sprintf (sbOut, "%d %c %d\n", iptr->solid, c, ipt r->index) ; 
writeString(fdSocket, sbOut) ; 
#if DEBUG 

printf ("writelndex: %d %c %d", iptr->solid, c, ipt r->index) ; 
#endif 
} 

/* 

* writeAd j Item( fdSocket, aptr ) - 
*/ 

void 

writeAdjItem(fdSocket, aptr) 
int fdSocket; 
AdjList_Ptr aptr; 

{ 

writelndex(f dSocket, &aptr->face) ; 
writelndex(f dSocket, &aptr->dEIn) ; 
writelndex(f dSocket, &apt r->dEOut ) ; 

} 

/* 

* writeEqn(fdSocket, New_Eqn) - 
*/ 

void 

writeEqn(int fdSocket, Poly New_Eqn) 
{ 

char *sbEqn; 

sbEqn = UnParse(New_Eqn) ; 
sprintf (sbOut, "%s\n", sbEqn); 
writ est ring (fdSocket, sbOut) ; 

} 

/* 

* writeBernPar( fdSocket, BernPar_Ptr) - write bernstein-parametric eqn 
*/ 

void 
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writeBernPar(fdSocket, eqn) 
int fdSocket; 
BernPar_Ptr eqn; 

{ 

int i; 

sprintf (sbOut, "%d\n", eqn->deg ree) ; 
writeSt ring ( fdSocket, sbOut) ; 

if (eqn->degree <= 0){ 
return ; 

} 

for (i = 0; i <= eqn->degree; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 
eqn->coef f s [i] [0] , 
eqn->coef f s [i] [1] , 
eqn->coef f s [i] [2] ) ; 
writeSt ring (fdSocket, sbOut) ; 

} 

return ; 

} 

/* 

* writeBernParQuad ( fdSocket, eqn) - write bernstein-parametric quad 
*/ 

void 

writeBernParQuad(fdSocket, eqn) 
int fdSocket; 
BernParQuad_Ptr eqn; 

{ 

int i; 

sprintf (sbOut, "%d\n", eqn->deg ree) ; 
writeSt ring ( fdSocket, sbOut) ; 

if (eqn->degree <= 0){ 
return ; 

} 

for (i = 0; i <= eqn->degree; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 
eqn->coef f 1 [i] [0] , 
eqn->coef f 1 [i] [1] , 
eqn->coeff 1 [i] [2] ) ; 
writeSt ring (fdSocket, sbOut) ; 

} 

for (i = 0; i <= eqn->degree; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 
eqn->coef f 2 [i] [0] , 
eqn->coeff2 [i] [1] , 
eqn->coeff2[i] [2] ) ; 
writeSt ring (fdSocket, sbOut) ; 

} 

return ; 

} 

/* 

* writeBernTensor( fdSocket, eqn) - write bernstein-tensor eqn 
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*/ 

void 

writeBernTensor(fdSocket, eqn) 
int fdSocket; 
BernTensor_Ptr eqn; 

{ 

int i; 

sprintf (sbOut, "%d\n", eqn->deg ree) ; 
writeSt ring ( fdSocket, sbOut) ; 

if (eqn->degree <= 0){ 
return ; 

} 

for (i = 0; i <= eqn->degree; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 
eqn->coef f 1 [i] [0] , 
eqn->coef f 1 [i] [1] , 
eqn->coeff 1 [i] [2] ) ; 
writeSt ring (fdSocket, sbOut) ; 

} 

for (i = 0; i <= eqn->degree; i++) { 
sprintf (sbOut, "%lf %lf %lf\n", 
eqn->coef f 2 [i] [0] , 
eqn->coeff2 [i] [1] , 
eqn->coeff2[i] [2] ) ; 
writeSt ring (fdSocket, sbOut) ; 

} 

sprintf (sbOut, "%lf %lf %lf\n", 

eqn->tangent [0] , 

eqn->tangent [1] , 

eqn->tangent [2] ) ; 
return ; 

} 

/* 

* writeVertex( fdSocket ) - 
*/ 
void 

writeVe rt ex ( fdSocket , New_Vertex) 
int fdSocket; 

Vertex_Ptr New_Vertex; 

{ 

AdjList_Ptr last_adj ; 
int i, num_adj ; 

/* write in the point value */ 
sprintf (sbOut, "%lf %lf %lf\n", 

New_Vertex->point [0] , 

New_Vertex->point [1] , 

New_Vertex->point [2] ) ; 
writeSt ring (fdSocket, sbOut) ; 

/* write adjacencies */ 

for (num_adj = 0, last_adj = New_Vertex->adjacencies; 
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last_adj != NULL; 

num_ad last_adj = last_ad j ->next ) { 

} 

sprintf (sbOut, "%d\n", num_adj); 
writeString (fdSocket, sbOut) ; 

for (last_adj = New_Vertex->ad j acencies ; 
last_adj != NULL; 
last_adj = last_adj->next) { 
writeAdj Item( fdSocket, last_adj ) ; 

} 



} 



/* 

* writeDEdge(f dSocket) - 
*/ 
void 

writeDEdge(fdSocket, New_DEdge) 
int fdSocket; 

DEdge_Ptr New_DEdge; 



{ 



writelndex( fdSocket, &New_DEdge->cycle) ; 

sprintf (sbOut, "%d\n", New_DEdge->rightOrientation) ; 
writeString (fdSocket, sbOut) ; 

writelndex( fdSocket, &New_DEdge->edge) ; 
writelndex( fdSocket, &New_DEdge->nextDE) ; 



/* 

* writeEdge(fdSocket) - 

* 

*/ 
void 

writeEdge(fdSocket, New_Edge) 
int fdSocket; 
Edge_Ptr New_Edge; 



DEList_Ptr last_de; 

char temp_st ring [80] ; 

int i, num_des; 

/* write edge name */ 

sprintf (sbOut, "%s\n", New_Edge->name) ; 

writeString (fdSocket, sbOut) ; 

/* write vertexl & vertex2 indices */ 
writelndex( fdSocket, &New_Edge->vertexl) ; 
writelndex( fdSocket, &New_Edge->vertex2) ; 
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/* write edge type */ 
switch (New_Edge->type) { 
case LINEAR: 

sprintf (sbOut, "%s\n", "LINEAR"); 

break; 

case BERNSTEIN_PARAMETRIC: 

sprintf (sbOut, "%s\n", "BERNSTEIN-PARAMETRIC"); 
break; 

case BERNSTEIN_TENSOR_EDGE: 

sprintf (sbOut, "%s\n", "BERNSTEIN-TENSOR"); 

break; 
case UNKNOWN: 

sprintf (sbOut, "%s\n", "UNKNOWN"); 

break; 
default: 

sprintf (sbOut, "%s\n", "ERROR_EDGE_TYPE" ) ; 

f printf ( stderr, "Unknown edge type in writeEdge\n" ) ; 

exit(l) ; 

} 

writeString (fdSocket, sbOut) ; 
/* write tangents */ 

sprintf (sbOut, "%lf %lf %lf\n", New_Edge->tanl2 [0] , 

New_Edge->tanl2 [1] , New_Edge->tanl2 [2] ) ; 
writeString (fdSocket, sbOut) ; 

sprintf (sbOut, "%lf %lf %lf\n", New_Edge->tan21 [0] , 

New_Edge->tan21 [1] , New_Edge->tan21 [2] ) ; 
writeString (fdSocket, sbOut) ; 

/* write directed edges */ 

for (num_des = 0, last_de = New_Edge->dEdges ; 
last_de != NULL; 

num_des++, last_de = last_de->next ) { 

} 

sprintf (sbOut, "%d\n", num_des); 
writeString (fdSocket, sbOut) ; 

for (last_de = New_Edge->dEdges ; 
last_de != NULL; 
last_de = last_de->next) { 
writeIndex(fdSocket, &last_de->dEdge) ; 

} 

/* write aux eqn */ 

if (New_Edge->aux_Eqn != NULL) { 

sprintf (sbOut, "%s\n", "AUX_EON"); 

writ est ring (fdSocket, sbOut) ; 

sprintf (sbOut, "%s\n", "IMPLICIT"); 

writ est ring (fdSocket, sbOut) ; 

writeEqn(fdSocket, New_Edge->aux_Eqn) ; 
} else { 
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sprintf (sbOut, "%s\n", "NO_AUX_EQN" ) ; 
w rit est ring (fdSocket, sbOut) ; 

} 

/* write bern eqn */ 

if ( (New_Edge->eqn != NULL) && ( New_Edge->eqn->deg ree > 0)) { 

sprintf (sbOut, "EQNS\n"); 

writeSt ring (fdSocket, sbOut) ; 

sprintf ( SbOut, "BERNSTEIN-PARAMETRIC\n" ) ; 

writeSt ring (fdSocket, sbOut) ; 

writeBernPar( fdSocket ,New_Edge->eqn) ; 
} else { 

sprintf (sbOut, "%s\n", "NO_EQNS" ) ; 
writeSt ring (fdSocket, sbOut) ; 

} 



} 



/* 

* writeCycle(fdSocket) - 
*/ 
void 

writeCycle(fdSocket, New_Cycle) 
int fdSocket; 

Cycle_Ptr New_Cycle; 



{ 



} 



writelndex(f dSocket, &New_Cycle->f ace) ; 
writelndex(f dSocket, &New_Cycle->dEdge) ; 



/* 

* writeFace(fdSocket, New_Face) 
*/ 
void 

writeFace( fdSocket, New_Face) 
int fdSocket; 

Face_Ptr New_Face; 



{ 



EQNList_Ptr last_eqn, next_eqn; 
CycleList_Pt r last_cycle; 
int i, num_cycles; 

char *b; 

/* write name */ 

sprintf (sbOut, "%s\n", New_Face->name) ; 
writ est ring (fdSocket, sbOut) ; 

/* write equation */ 
switch (New_Face->type) { 
case IMPLICIT: 

sprintf (sbOut, "IMPLICIT\n" ) ; 

writeSt ring (fdSocket, sbOut) ; 
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writeEqn(fdSocket, New_Face->equation ) ; 
break; 

case BERNSTEIN_PARAMETRIC_QUAD: 

sprintf (sbOut, "BERNSTEIN_PARAMETRIC_QUAD\n" ) ; 
w rit est ring (fdSocket, sbOut) ; 
/* write it out */ 

w r it eBernParQuad (fdSocket ,New_Face->bernQuad) ; 
break; 
case BERNSTEIN_TENSOR: 

sprintf ( SbOut, "BERNSTEIN_TENSOR\n" ) ; 
writ est ring (fdSocket, sbOut) ; 
/* write it out */ 

writeBernTensor( fdSocket ,New_Face->bernTens ) ; 
break; 
default: 
break; 

} 

/* write the (three) normal equations */ 
writeEqn(fdSocket, New_Face->normal->eQN) ; 
writeEqn(fdSocket, New_Face->normal->next->eQN) ; 
writeEqn ( fdSocket , New_Face->normal->next->next->eQN) ; 

/* write in the cycles */ 

for ( num_cycles = 0, last_cycle = New_Face->cycles ; 
last_cycle != NULL; 

num_cycles++, last_cycle = last_cycle->next ) { 

} 

sprintf (sbOut, "%d\n", num_cycles ) ; 
writeSt ring (fdSocket, sbOut) ; 

for (last_cycle = New_Face->cycles ; 
last_cycle != NULL; 
last_cycle = last_cycle->next ) { 
writeIndex(fdSocket, &last_cycle->cycle) ; 

} 

} 



* writeSolid(fdSocket) - 

* 

*/ 
void 

writeSolid(fdSocket, New_Solid) 
int fdSocket; 

Solid_Ptr New_Solid; 

{ 

int i; 

int Num_Vertices, Num_Edges, Num_Faces, Num_DEdges, 

Num_Cycles ; 

if (New_Solid == NULL) { 

f printf ( stderr, "writeSolid ( ) : Can't write NULL solid!\n"); 
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return; 

} 

Num_Vertices = New_Solid->vertices->index, 
Num_Edges = New_Solid->edges->index, 
Num_Faces = New_Solid->f aces->index, 
Num_DEdges = New_Solid->dEdges->index, 
Num_Cycles = New_Solid->cycles->index; 

sprintf (sbOut, "SOLID %d\n", 1); 
writeString (fdSocket, sbOut) ; 

sprintf (sbOut, "%s\n", New_Solid->name) ; 
writeString (fdSocket, sbOut) ; 

/* write # of vertices, edges, faces, dedges, cycles */ 
sprintf (sbOut, "%d %d %d %d %d\n", Num_Vertices, Num_Edges, 

Num_Faces, Num_DEdges, Num_Cycles ) ; 
writ est ring (fdSocket, sbOut) ; 

/* write all the solid subcomponents */ 
for (i = 0; i < Num_Vertices ; i++) { 

writeVertex( fdSocket , New_Solid->vertices->ent ries [i] .vertex) ; 

} 

for (i = 0; i < Num_Edges; i++) { 

writeEdge( fdSocket, New_Solid->edges->ent ries [i] . edge) ; 

} 

for (i = 0; i < Num_Faces; i++) { 

writeFace(fdSocket, New_Solid->f aces->ent ries [i] . face) ; 

} 

for (i = 0; i < Num_DEdges ; i++) { 

writeDEdge(fdSocket, New_Solid->dEdges->ent ries [i] .dEdge) ; 

} 

for (i = 0; i < Num_Cycles ; i++) { 

writeCycle( fdSocket, New_Solid->cycles->ent ries [i] . cycle) ; 

} 

/* 

fflush(fdSocket) ; 
*/ 

return ; 



void 

writeSolidData(f dSocket, pSolid) 
int fdSocket; 
solidData *pSolid; 

{ 

sprintf ( sbOut ,"%s", pSolid->sbName) ; 
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writeString (fdSocket, sbOut) ; 

sprintf (sbOut, "%lu %lu %lu", 

pSolid->lIdTag, 

pSolid->lSIdTag, 

pSolid->lPerms) ; 
writeString (fdSocket, sbOut) ; 

sprintf (sbOut, "%d %d %d %d", 

pSolid->dispMode, 

pSolid->color, 

pSolid->shade, 

pSolid->dispInf o) ; 
writeString (fdSocket, sbOut) ; 

writeSolid(fdSocket, pSolid->pSolid ) ; 
return; 

} 

/* 

* Print_Expr2Str — prints an expression as a list of terms 
*/ 

void 

Print_Expr2Str(termlist, str, fWantZeros) 



TermList 


termlist ; 


char 


*str; 


int 


fWantZeros ; 


TermList 


temp = termlist 


int 


i; 


int 


f Any; 


int 


f PrevTerm; 


if (temp 


== NULL) { 



sprintf(str, "(null)\n"); 
} 

fAny = 0; 
fPrevTerm = 0; 
while (temp != NULL) { 



/* print the coefficient, and then the terms */ 
if (temp->term. coef f == 0.0) { 
temp = temp->next; 
continue; 

} 

if (fPrevTerm) { 

sprintf (str, " + ") ; 
str += strlen(str) ; 

} 

/* print the coefficient */ 

sprintf (str, "%10f ", temp->term. coef f ) ; 

str += strlen(str) ; 

fAny = 1; 
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fPrevTerm = 1; 



for (i = 0; i < iVarCount; i++) { 

if (fWantZeros || (temp->term. exponents [i] != 0)) { 
sprintf(str, " * %s'^%d ", sbVarNames [i] , 

temp->term. exponents [i] ) ; 
str += strlen(str) ; 

} 

} 

temp = temp->next ; 

} 

if (IfAny) { 

sprintf(str, "0.0"); 
str += strlen(str) ; 

} 

} 

/* 

* Print_Expr2File — prints an expression as a list of terms 
*/ 

void 

Print_Expr2File(f ile, termlist, fWantZeros) 
FILE *file; 

TermList termlist; 

int fWantZeros; 

{ 

TermList temp = termlist; 

int i; 

int fAny; 

int fPrevTerm; 



if (temp == NULL) { 

fprintf (file, "(null)\n"); 

} 

fAny = 0; 

fPrevTerm = 0; 

while (temp != NULL) { 

/* print the coefficient, and then the terms */ 
if (temp->term. coef f == 0.0) { 
temp = temp->next; 
continue; 

} 

if (fPrevTerm) { 

fprintf (file, " + ") ; 

} 

/* print the coefficient */ 

f printf ( f ile, "%10f ", temp->term. coef f ) ; 

fAny = 1; 

fPrevTerm = 1; 



for (i = 0; i < iVarCount; i++) { 

if (fWantZeros || (temp->term. exponents [i] != 0)) { 
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f printf (f ile, " * %s'^%d ", sbVarNames [i] , 
temp->term. exponents [i] ) ; 

} 

} 

temp = temp->next ; 

} 

if ( IfAny) { 

fprintf (file, "0.0"); 

} 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <shast ra/shilp. h> 

/*command line argument processing utility */ 

usage(argc, argv, argvHelp) 

int argc; 

char *argv [] ; 

char *argvHelp [ ] ; 

{ 

int i; 

fprintf (stderr, "usage: %s [options ] \n" , argv[0]); 
f printf ( stderr, " where options are:\n"); 
for(i=0;arvgHelp[i] !=NULL;i++){ 

fprintf ( stderr, "%s\n", a rgvHelp [i] ) ; 

} 

} 

cmdLineOpts (argc, argv) 
int argc; 
char *argv [] ; 
{ 

int i; 

for (i = 1; i < argc; i++) { 

if (Istrcmp ("-display", argv[i]) || Istrcmp ("-d", argv[i])) { 
if (++i>=argc) usage (); 
display_name = argv[i]; 
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continue; 

} 

if ( !strcmp("-help", argv[i])) { 
usage( ) ; 

} 

/*etc . .*/ 
usage( ) ; 
} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <sys/types . h> 
#include <sys/dir.h> 

#include <shast ra/ut ils/di recto ry . h> 
#define NOT_FOUND -1 
#define DEBUG 
#define STANDALONEnn 

int 

locateNameInDir(name, dirname) 

char *name, *dirname; 

{ 

DIR *dirp; 
struct direct *dp; 
int len; 
int found = 0; 

len = strlen(name) ; 

if ((dirp = opendir(dirname) ) == NULL) { 

f printf ( stderr, "locateNameInDir( )-> Couldn't open directory %s\n", 

dirname) ; 
return NOT_FOUND; 

} 

for (dp = readdir(dirp) , found = 0; dp != NULL; 
dp = readdir(dirp) , found++) 
if (dp->d_namlen == len && ! strcmp(dp->d_name, name)) { 
closedir(dirp) ; 
return found; 

} 
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closedir(dirp) ; 
return NOT_FOUND; 

} 

int 

f orAllFilesInDir(dirname, doit) 
char *dirname; 
void (*doit) 0; 

{ 

DIR *dirp; 
struct direct *dp; 

if ((dirp = opendir(dirname) ) == NULL) { 

f printf ( stder r, "f orAllFilesInDir( )-> Couldn't open dir %s\n", 

dirname) ; 
return NOT_FOUND; 

} 

for (dp = readdir(dirp) ; dp != NULL; 
dp = readdir(dirp) ) { 
doit (dp->d_name, dirname); 

} 

closedir(dirp) ; 
return 0; 

} 

void 

dumdoit ( St r, n) 

char *str; 
int n; 

{ 

printf ("%s ", str) ; 

} 

#ifdef STANDALONE 
main(argc, argv, envp) 

int argc; 

char **argv, **envp; 

{ 

int found; 

if (argc != 2) { 

f printf ( stderr, "bad usage.. %s name\n", argv[0]); 
exit(l) ; 

}; 

if (argc == 2) { 

found = locateNameInDir(argv [1] , "."); 
if(found != NOT_FOUND){ 

printf (" Found %s in %s at %d'th position\n", argv[l], found); 
} 

else{ 

printf ("Couldn 't find %s in %s\n", argv[l], found); 
} 
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} 

f orAllFilesInDir( " . " , dumdoit) 



} 

#endif /*STANDALONE*/ 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#include <shast ra/shilp. h> 
#include <shast ra/utils/dllist . h> 

extern free(); 

int 

dllistCheckGood(adllist) 

struct dllist *adllist; 

{ 

int baddllist = 1; 

if (adllist == NULL) { 

f printf ( stderr, "BadArgs to dllistCheckGood ) \n" ) ; 
return (0); 

} 

if (adllist->head == NULL) { 

if (adllist->tail == NULL) { 

if (adllist->dllist_count != 0) { 
baddllist = 0; 

} 

} else { 

baddllist = 0; 

} 

} else { 

if (adllist->tail == NULL) { 
baddllist = 0; 

} 
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} 

if ( Ibaddllist) { 

return 0; 
} else { 

return dllistCheckCount (adllist ) ; 

} 

} 

int 

dllistCheckCount (adllist) 

struct dllist *adllist; 

{ 

struct dllist_node *tmpnode; 
int fcount; 
int bcount; 

if (adllist == NULL) { 

f printf ( stderr, "BadArgs to dllistCheckCount () \n" ) ; 
return (0); 

} 

fcount = 0; 

for (tmpnode = adllist->head ; tmpnode != NULL; tmpnode = tmpnode->next ) 
{ 

f count++; 

} 

bcount = 0; 

for (tmpnode = adllist->tail; tmpnode != NULL; tmpnode = tmpnode->prev) 
{ 

bcount++; 

} 

return ((fcount == adllist->dllist_count ) && 
(bcount == fcount) ) ; 



} 



int 

dllistCheckNode(adllist, node) 
struct dllist *adllist; 
struct dllist_node *node; 



{ 



struct dllist_node *tmpnode; 

if ((adllist == NULL) || (node == NULL)) { 

f printf ( stderr, "BadArgs to dllistCheckNode( )\n" ) ; 
return (0); 

} 

for (tmpnode = adllist->head ; tmpnode != NULL; tmpnode = tmpnode->next ) 
{ 

if (tmpnode == node) 
return (1); 

} 

return (0); 



Page 2 of 10 



dllist.c 



7/5/1 1 3:02 PM 



Struct dllist * 
dllistMakeNew( ) 
{ 

struct dllist *new; 

new = (struct dllist *) malloc ( sizeof ( st ruct dllist)); 
memset( (char *) new, 0, sizeof ( st ruct dllist)); 
return (new); 

} 

struct dllist_node * 
dllistMakeNewNode( ) 
{ 

struct dllist_node *new; 

new = (struct dllist_node *) malloc ( sizeof ( st ruct dllist_node) ) ; 
memset( (char *) new, 0, sizeof ( st ruct dllist_node) ) ; 
return (new); 

} 

void 

dllistDestroy(adllist, fDest royData) 
struct dllist *adllist; 
int fDest royData; 

{ 

struct dllist_node *node, *nextNode; 
if (adllist == NULL) { 

f printf ( stderr, "BadArgs to dllistDest roy ( ) \n" ) ; 

return; 

} 

/* 

* map (adllist, free) ; 
*/ 

for (node = adllist->head ; node != NULL; ) { 
nextNode = node->next; 
if (fDestroyData) f ree(node->data) ; 
f ree(node) ; 
node = nextNode; 

} 

f ree(adllist) ; 
return; 

} 

void 

d His tDestroyElements (adllist, fDestroyData) 
struct dllist *adllist; 
int fDestroyData; 

{ 

struct dllist_node *node, *nextNode; 
if (adllist == NULL) { 

f printf ( stderr, "BadArgs to dllistDest royElements () \n" ) ; 

return; 

} 
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for (node = adllist->head ; node != NULL; ) { 
nextNode = node->next; 
if (fDestroyData) f ree(node->data) ; 
f ree(node) ; 
node = nextNode; 

} 

memset (adllist, 0, sizeof ( st ruct dllist )); 
return; 

} 

void 

d llistDestroyTaiK ad Hist, aNode, fDestroyData) 
struct dllist *adllist; 
struct dllist_node *aNode; 
int fDestroyData; 

{ 

struct dllist_node *node, *nextNode; 
int i; 

if ((adllist == NULL) || (aNode == NULL )){ 

f printf (stderr, "BadArgs to dllistDestroyTaiK )\n" ) ; 
return; 

} 

for (node = aNode->next, i=0; node != NULL; i++) { 
nextNode = node->next; 
if (fDestroyData) f ree(node->data) ; 
f ree(node) ; 
node = nextNode; 

} 

adllist->dllist_count -= i; 
adllist->tail = aNode; 
return; 

} 

void 

dllistlnsertAtHead (adllist, node) 
struct dllist *adllist; 
struct dllist_node *node; 

{ 

if ((adllist == NULL) || (node == NULL)) { 

f printf (stderr, "BadArgs to dllistlnsertAtHead 0 \n" ) ; 
return; 

} 

if (adllist->tail == NULL) { 
adllist->tail = node; 

} 

if (adllist->head != NULL){ 
adllist->head->prev = node; 
} 

node->next = adllist->head ; 
adllist->head = node; 
node->prev = NULL; 
adllist->dllist_count++; 
return; 

} 
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void 

d Hist InsertAtTaiK ad Hist, node) 
struct dllist *adllist; 
struct dllist_node *node; 

{ 

if ((adllist == NULL) || (node == NULL)) { 

fprintf (stderr, "BadArgs to dllistlnsertAtTaiK )\n" ) ; 
return; 

} 

if (adllist->head == NULL) { 

adllist->head = node; 
} else { 

adllist->tail->next = node; 

} 

node->next = NULL; 
node->prev = adllist->tail; 
adllist->tail = node; 
adllist->dllist_count++; 
return; 

} 

void 

dllistlnsertAf ter(adllist, old, new) 
struct dllist *adllist; 
struct dllist_node *old, *new; 

{ 

if ((adllist == NULL) | | (old == NULL) | | (new == NULL)) { 
fprintf ( stderr, "BadArgs to dllistInsertAfter( )\n" ) ; 
return; 

} 

#ifdef CHECK_NODE 

if ( !dllistCheckNode(adllist, node)) { 

fprintf ( stderr, "node %lcl not on dllist %ld\n", node, adllist); 
return; 

} 

#endif /* CHECK_NODE */ 

adllist->dllist_count++; 
if (adllist->tail == old) { 
adllist->tail = new; 

} 

new->next = old->next; 
if (old->next){ 

old->next->prev = new; 

} 

old->next = new; 
new->prev = old; 
return ; 

} 



void 
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dllistlnsertBef ore(adllist, old, new) 
struct dllist *adllist; 
struct dllist_node *old, *new; 

{ 

if ((adllist == NULL) | | (old == NULL) | | (new == NULL)) { 
f printf ( stderr, "BadArgs to dllistInsertBefore( )\n" ) ; 
return; 

} 

#ifdef CHECK_NODE 

if ( !dllistCheckNode(adllist, node)) { 

f printf ( stderr, "node %lcl not on dllist %ld\n", node, adllist); 
return; 

} 

#endif /* CHECK_NODE */ 

adllist->dllist_count++; 
if (adllist->head == old) { 
adllist->head = new; 

} 

new->prev = old->prev; 
if (old->prev){ 

old->prev->next = new; 

} 

old->prev = new; 
new->next = old; 
return ; 

} 

void 

dllistDeleteThis (adllist, node) 
struct dllist *adllist; 
struct dllist_node *node; 

{ 

struct dllist_node *tmpnode; 

if ((adllist == NULL) || (node == NULL)) { 

f printf ( stderr, "BadArgs to dllistDeleteThis 0 \n" ) ; 

return; 

} 

#ifdef CHECK_NODE 

if ( !dllistCheckNode(adllist, node)) { 

f printf ( stderr, "node %lcl not on dllist %ld\n", node, adllist); 
return; 

} 

#endif /* CHECK_NODE */ 

adllist->dllist_count — ; 
if (node == adllist->head ) { 
adllist->head = node->next; 

} 

if (node == adllist->tail) { 
adllist->tail = node->prev; 

} 

if ( node->prev != NULL){ 

node->prev->next = node->next; 

} 

if (node->next != NULL){ 



Page 6 of 10 



dllist.c 



7/5/1 1 3:02 PM 



node->next->prev = node->prev; 

} 

/*free (node); *//* caller frees when he wants */ 
return; 

} 

void 

dllistMap(adllist, func, argl, arg2) 

struct dllist *adllist; 

void (*func) (); 

char *argl, *arg2; /* space for args to func */ 

{ 

struct dllist_node *node; 
if (adllist == NULL) { 

f printf ( stderr, "BadArgs to map()\n"); 

return; 

} 

for (node = adllist->head ; node != NULL; node = node->next) { 
f unc(node->data, argl, arg2); 

} 

} 

void 

dllistMapReverse(adllist, func, argl, arg2) 

struct dllist *adllist; 

void (*func) (); 

char *argl, *arg2; /* space for args to func */ 

{ 

struct dllist_node *node; 
if (adllist == NULL) { 

f printf ( stderr, "BadArgs to map()\n"); 

return; 

} 

for (node = adllist->tail; node != NULL; node = node->prev) { 
f unc(node->data, argl, arg2); 

} 

} 

void 

dllistAppend (adllist, bdllist) /* destructive append */ 
struct dllist *adllist, *bdllist; 

{ 

if ((adllist == NULL) || (bdllist == NULL)) { 

f printf ( stderr, "BadArgs to dllistAppend 0 \n" ) ; 
return; 

} 

if (adllist->tail == NULL) { 

memcpy(adllist, bdllist, sizeof ( st ruct dllist)); 
} else if (adllist->tail == NULL) { 
/*adllist is the result*/ 
} else { 
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adllist->tail->next = bdllist->head ; 
bdllist->head->prev = adllist->tail; 
adllist->tail = bdllist->tail; 
adllist->dllist_count += bdllist->dllist_count ; 

} 

memset(bdllist, 0, sizeof ( st ruct dllist)); /* destruction */ 
return; 

} 

void 

dllistAf terlnsertdlList (adllist, bdllist, node) /* destructive */ 
struct dllist *adllist, *bdllist; 
struct dllist_node *node; 

{ 

/* since node is on adllist, adllist->head won't be null */ 

if ((adllist == NULL) || (bdllist == NULL) || (node == NULL)) { 

fprintf (stderr, "BadArgs to dllistAfterlnsertdlLisK )\n") ; 

return; 

} 

#ifdef CHECK_NODE 

if ( !dllistCheckNode(adllist, node)) { 

fprintf ( stderr, "node %ld not on dllist %ld\n", node, adllist); 
return; 

} 

#endif /* CHECK_NODE */ 

if ( (bdllist->head == NULL) || ( bdllist->tail == NULL)) { 
memset ( bdllist , 0, sizeof ( st ruct dllist)); 
return; /* nothing changes */ 

} 

adllist->dllist_count += bdllist->dllist_count ; 
if (adllist->tail == node) { 

adllist->tail = bdllist->tail; 

} 

bdllist->tail->next = node->next; 
bdllist->head->prev = node; 
node->next = bdllist->head ; 
return ; 

} 

void 

dllistBeforelnsertdlList (adllist, bdllist, node) /* destructive */ 
struct dllist *adllist, *bdllist; 
struct dllist_node *node; 

{ 

/* since node is on adllist, adllist->head won't be null */ 

if ((adllist == NULL) || (bdllist == NULL) || (node == NULL)) { 

fprintf ( stderr, "BadArgs to dllistBeforelnsertdlLisK )\n") ; 

return; 

} 

#ifdef CHECK_NODE 

if ( !dllistCheckNode(adllist, node)) { 

fprintf ( stderr, "node %ld not on dllist %ld\n", node, adllist); 
return; 
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#endif /* CHECK_NODE */ 

if ( (bdllist->head == NULL) || ( bdllist->tail == NULL)) { 
memset(bdllist, 0, sizeof ( st ruct dllist)); 
return; /* nothing changes */ 

} 

adllist->dllist_count += bdllist->dllist_count ; 
if (adllist->head == node) { 

adllist->head = bdllist->head ; 

} 

bdllist->head->prev = node->prev; 
bdllist->tail->next = node; 
node->prev = bdllist->tail; 
return ; 

} 

struct dllist_node 
*dllistGetNthNode(adllist, n) 

struct dllist *adllist; 

int n; 

{ 

int i; 

struct dllist_node *node; 

if (adllist == NULL){ 

fprintf (stderr, "BadArgs to dllistGetNthNode( )\n" ) ; 
return NULL; 

} 

if ((n < 0) II (n > adllist->dllist_count) ){ 
return NULL; 

} 

else{ 

f or( i=0, node=adllist->head ; i<n ; i++, node=node->next ) { 
} 

return node; 
} 

} 

struct dllist_node 
*dllistGetRevNthNode(adllist, n) 

struct dllist *adllist; 

int n; 

{ 

int i; 

struct dllist_node *node; 

if (adllist == NULL){ 

fprintf (stderr, "BadArgs to dllistGetRevNthNode( ) \n" ) ; 
return NULL; 

} 

if ((n < 0) II (n > adllist->dllist_count) ){ 
return NULL; 
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else{ 

f or( i=0, node=adllist->tail; i<n ; i++, node=node->prev) { 
} 

return node; 
} 

} 

int 

dllistSize(adllist) 

struct dllist *adllist; 

{ 

struct dllist_node *node; 
int i; 

if (adllist == NULL) { 

f printf ( stderr, "BadArgs to map()\n"); 
return -1; 

} 

for (node = adllist->head, i=0; node != NULL; node = node->next, i++) { 
} 

return i; 

} 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

/* 

* hash.c hash table routines 

* 

* author — Vinod Anupam 

* 

* modification history 

* 

* Hash Table & Symbol management routines 
*/ 

#include <stdio.h> 
#include <string.h> 

#include <shast ra/shilp. h> 
#include <shast ra/utils/hash . h> 

#define HASH_TALK 

/* 

* htHashFunxnBytes ( sb, n, prime) compute hash value of n bytes at sb 

*/ 

int htHashFuncBytes (sb,n, prime) 

char *sb; 

int n ; 

int prime; 

{ 

int i; 

unsigned ch = 0, 
chTemp; 
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for (i=0; i<n;i++){ 

ch = (ch « 4) + (*sb++); 

if (chTemp = ch & 0xf0000000) { 

ch = ch (chTemp » 24); 

ch = ch chTemp; 

} 
} 

return (ch % prime) ; 

} 

/* 

* htHashFunxnSb( sb, prime) compute hash value of sb 

*/ 

int htHashFuncSb (sb, prime) 
char *sb; 
int prime; 
{ 

char *sbTemp; 
unsigned ch = 0, 
chTemp; 

for (sbTemp = sb; *sbTemp != f EndOf St ring ; sbTemp++) { 

ch = (ch « 4) + (*sbTemp); 

if (chTemp = ch & 0xf0000000) { 

ch = ch (chTemp » 24); 

ch = ch chTemp; 

} 
} 

return (ch % prime) ; 



/* 

* htLookup(ht, sb) lookup sb in the hash table 

*/ 

struct he *htLookup (pht,sb) 
hashTable *pht; 
char *sb; 
{ 

int ihe; 
struct he *phe; 

if (pht->iElementSize){ 

ihe = pht->hashFunc ( sb, pht->iElementSize, pht->ihtSize) ; 
for (phe = pht->rgphe [ihe] ; phe != NULL; phe = phe -> phe) { 
if (memcmp (sb, phe -> sb, pht->iElementSize) == 0){ 
return (phe); 

} 

} 

} 

else{ 

ihe = pht->hashFunc ( sb, pht->ihtSize) ; 

for (phe = pht->rgphe [ihe] ; phe != NULL; phe = phe -> phe) { 
if (strcmp (sb, phe -> sb) == 0){ 
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return (phe); 

} 

} 

} 

return (NULL); 

} 

/* 

* htlnstallSymboKpht, sb,data) install sb in the hash table 

*/ 

struct he *htInstallSymbol (pht, sb,data) 

hashTable *pht; 

char *sb; 

char *data; 

{ 

struct he *phe,*pheS; 
int ihe; 

phe = htLookup (pht,sb); 

if (phe == NULL) { /* not in table */ 

phe = heGet ( ) ; 
if ( pht->iElementSize) { 

phe -> sb = htMakeBytes ( sb, pht->iElementSize) ; 

ihe = pht->hashFunc (sb, pht->iElementSize, pht->ihtSize) ; 

} 

else{ 

phe -> sb = htMakeString(sb) ; 

ihe = pht->hashFunc (sb, pht->ihtSize) ; 

} 

phe -> phe = pht->rgphe [ihe] ; 
pht->rgphe [ihe] = phe; 
phe -> pheGroup = pht->pheStart ; 
phe->data = data; 
pht->pheStart = phe; 

} 

/*symbol installed in table only once*/ 
return phe; 



/* 

* htMakeBytes ( sb, n) create a copy of n bytes sb 

*/ 

char *htMakeBytes (sb,n) 
char *sb; 
int n ; 
{ 

char *sbNew; 
sbNew = (char*)malloc(n) ; 
memcpy (sbNew,sb, n); 
return (sbNew); 

} 
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/* 

* htMakeString(sb) create a copy of string sb 

*/ 

char *htMakeString (sb) 

char *sb; 

{ 

char *sbNew; 
sbNew = strdup(sb) ; 
return ( sbNew) ; 



/* 

* htMakeNew( iSize, iEltSize) prepares the hash table initially 

* iSize must be a prime no < iheMax 

* iEltSize must be 0 for variable size, else element size 
*/ 

hashTable *htMakeNew ( iSize, iEltSize) 
int iSize; 
int iEltSize; 
{ 

int ihe; 
hashTable * pht; 

pht = (hashTable *)malloc(sizeof (hashTable) ) ; 
for (ihe = 0; ihe < iheMax; ihe++){ 
pht->rgphe[ihe] = NULL; 

} 

pht->pheStart = NULL; 
pht->ihtSize = iSize; 
pht->iElementSize = iEltSize; 
if (iEltSize){ 

pht->hashFunc = htHashFuncBytes ; 

} 

else{ 

pht->hashFunc = htHashFuncSb; 

} 

return(pht) ; 

} 



/* 

* heDelete(pht, sb) delete this entry sb from the hash table 

*/ 

struct he *heDelete (pht,sb) 
hashTable * pht; 
char *sb; 
{ 

int ihe; 
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struct he *phe, 

*pheFollow; 

if ( pht->iElementSize ) { 

ihe = pht->hashFunc (sb, pht->iElementSize, pht->ihtSize) ; 
pheFollow = pht->rgphe [ihe] ; 

for (phe = pheFollow; phe != NULL; phe = phe -> phe) { 
if (memcmp (sb, phe -> sb, pht->iElementSize) == 0) { 
break; 

} 

else { 

pheFollow = phe; 

} 

} 

} 

else{ 

ihe = pht->hashFunc (sb, pht->ihtSize) ; 
pheFollow = pht->rgphe [ihe] ; 

for (phe = pheFollow; phe != NULL; phe = phe -> phe) { 
if (strcmp (sb, phe -> sb) == 0) { 
break; 

} 

else { 

pheFollow = phe; 

} 

} 
} 

if (phe == NULL) { 

printf ("heDelete : Can't find it in hash table!\n"); 

return (NULL); 

} 

if (pheFollow != phe) { 

pheFollow -> phe = phe -> phe;/* delete from II */ 
} 

else{ 

pht->rgphe [ihe] = NULL; 
} 

if (pht->pheStart == phe){ 

pht->pheStart = phe->pheGroup; 

} 

else{ 

for (pheFollow=pht->pheStart; pheFollow->pheGroup != phe; 
pheFollow = pheFollow -> pheGroup) { 

} 

pheFollow->pheGroup = phe->pheGroup; 

} 

return (phe); /*this is being removed*/ 



heGetO returns a he from memory 
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Struct he *heGet () { 
struct he *phe; 

phe = (struct he *)malloc(sizeof (struct he)); 

phe -> sb = NULL; 

phe -> phe = NULL; 

phe -> pheGroup = NULL; 

return phe; 

} 



/* 

* htDestroy() destroy a hash table and contents., if fRec, destroy 

data 

*/ 

void htDestroy (pht, f Recurse) 
hashTable *pht; 

int fRecurse; /* 1 destroy data */ 

{ 

struct he *phe, *ophe;; 

for (phe = pht->pheStart; phe != NULL; ){ 
ophe = phe; 

phe = phe -> pheGroup; 

if (heDelete(pht,ophe->sb) == NULL){ 

f printf ( stderr, "htDest roy ( ) -> internal error on %s!\n", 
ophe->sb) ; 

} 

if (fRecurse){ 

f ree(ophe -> data) ; 

} 

f ree(ophe) ; 

} 

f ree(pht) ; 



/* 

* htDumpO dumps contents of hash table in order of entry 

*/ 

void htDump (pht, mode) 
hashTable *pht; 

int mode; /* 0 insertion 1 hashed */ 

{ 

struct he *phe; 
int ihe; 

printf ("Dumping hash in mode %d\n", mode); 
if (mode) { 

for (ihe = 0; ihe < pht->ihtSize; ihe++) { 

for (phe = pht->rgphe [ihe] ; phe != NULL; phe = phe -> phe) { 
printf ("%ld : %s\n", phe -> sb, phe -> data); 
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} 

} 
} 

else { 

for (phe = pht->pheStart ; phe != NULL; phe = phe -> pheGroup) 
printf ("%ld : %s\n", phe -> sb, phe -> data); 

} 



#define NOHASH_STANDALONE 
#ifdef HASH_STANDALONE 

/* 

* test.c 

*/ 

char *hash_str[] = { 
"1", "one", 
"2", "two", 
"3", "three", 
"4", "four", 
"one", "1", 
"two", "2", 
"three", "3", 
"four", "4" 

}; 

#define MAXENTCOUNT 16 



struct testdata{ 

long ent; 

char* val; 

} test[] ={ 

1, "one", 
111, "two", 
2323, "three", 
24, "four", 
1212, "five", 
65536, "six" 

}; 

#define MAXTSTCOUNT 6 

main( ) 

{ 

hashtest2( ) ; 
} 

hashtestK ){ 

hashTable* pht; 
int ihe; 
struct he *phe; 

printf ("Hello Hasho !\n") ; 
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pht = htMakeNew(31, 0) ; /*31 entries, variable size*/ 

/* install temp data */ 

for (ihe = 0; ihe < MAXENTCOUNT; ihe += 2) { 
htlnstallSymbol ( pht , hash_st r [ihe] , hash_str[ihe +1]); 
} 

htDump(pht,0) ; 
htDump(pht, 1) ; 

for (ihe = 0; ihe < MAXENTCOUNT; ihe += 2) { 
phe = htLookup (pht, hash_str [ihe] ) ; 

printf ("%s (looked up)-> %s\n", phe -> sb, phe -> data); 

} 

phe = heDelete(pht, "three" ) ; 

printf ("%s (deleted)-> %s\n", phe -> sb, phe -> data); 
htDump(pht,0) ; 
htDump(pht, 1) ; 

for (ihe = 0; ihe < MAXENTCOUNT; ihe += 2) { 
phe = htLookup (pht, hash_str [ihe] ) ; 
if (phe!=NULL){ 

printf ("%s (looked up)-> %s\n", phe -> sb, phe -> data); 
} 

} 

} 

hashtest2( ){ 

hashTable* pht; 
int ihe; 
struct he *phe; 

printf ("Hello Hasho !\n") ; 

pht = htMakeNew(31, sizeof (long) ) ; /*31 entries, sizeof (long) size*/ 

/* install temp data */ 

for (ihe = 0; ihe < MAXTSTCOUNT; ihe ++) { 

htlnstallSymbol (pht, (char *)&test [ihe] .ent, test[ihe ].val); 
} 

htDump(pht,0) ; 
htDump(pht, 1) ; 

for (ihe = 0; ihe < MAXTSTCOUNT; ihe ++ ) { 

phe = htLookup (pht, (char *)&test [ihe] . ent ) ; 

printf ("%ld (looked up)-> %s\n", phe -> sb, phe -> data); 

} 

phe = heDelete(pht, (char*)&test [2] .ent) ; 

printf ("%ld (deleted)-> %s\n", phe -> sb, phe -> data); 

htDump(pht,0) ; 

htDump(pht, 1) ; 

for (ihe = 0; ihe < MAXTSTCOUNT; ihe ++) { 

phe = htLookup (pht, (char *)&test [ihe] . ent ) ; 
if (phe!=NULL){ 

printf ("%ld (looked up)-> %s\n", phe -> sb, phe -> data); 
} 

} 

} 
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#endif /*HASH_STANDALONE*/ 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 
#include <malloc.h> 

#include <shast ra/utils/list . h> 

int 

listCheckGood(alist) 

struct list *alist; 

{ 

int badlist = 1; 

if (alist == NULL) { 

f printf ( stderr, "BadArgs to listCheckGood ) \n" ) ; 
return (0); 

} 

if (alist->head == NULL) { 

if (alist->tail == NULL) { 

if (alist->list_count != 0) { 
badlist = 0; 

} 

} else { 

badlist = 0; 

} 

} else { 

if (alist->tail == NULL) { 
badlist = 0; 

} 

} 

if ( Ibadlist) { 
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return 0; 
} else { 

return listCheckCount(alist) ; 

} 

} 

int 

listCheckCount(alist) 

struct list *alist; 

{ 

struct list_node *tmpnode; 
int count; 

if (alist == NULL) { 

f printf ( stderr, "BadArgs to listCheckCount ( ) \n" ) ; 
return (0); 

} 

count = 0; 

for (tmpnode = alist->head; tmpnode != NULL; tmpnode = tmpnode->next ) { 
count++; 

} 

return (count == alist->list_count ) ; 

} 

int 

listCheckNode(alist, node) 
struct list *alist; 
struct list_node *node; 

{ 

struct list_node *tmpnode; 

if ((alist == NULL) || (node == NULL)) { 

f printf ( stderr, "BadArgs to listCheckNode( )\n" ) ; 
return (0); 

} 

for (tmpnode = alist->head; tmpnode != NULL; tmpnode = tmpnode->next ) { 
if (tmpnode == node){ 
return (1); 

} 

} 

return (0); 

} 

int 

listGetNodeIndex(alist, data) 
struct list *alist; 
char *data; 

{ 

struct list_node *tmpnode; 
int i; 

if (alist == NULL){ 

f printf ( stderr, "BadArgs to listGetNodeIndex( )\n" ) ; 
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return (-1); 

} 

for ( i=0, tmpnode = alist->head ; tmpnode != NULL; 
tmpnode = tmpnode->next, i++) { 
if (tmpnode->data == data){ 
return (i); 

} 

} 

return (-1); 

} 

struct list_node * 
listFindNode(alist, data) 

struct list *alist; 

char *data; 

{ 

struct list_node *tmpnode; 

if (alist == NULL){ 

f printf ( stderr, "BadArgs to listFindNode( )\n" ) ; 
return (NULL); 

} 

for (tmpnode = alist->head; tmpnode != NULL; tmpnode = tmpnode->next ) { 
if (tmpnode->data == data){ 
return (tmpnode) ; 

} 

} 

return (NULL); 

} 

struct list * 
listMakeNew( ) 
{ 

struct list *new; 

new = (struct list *) malloc ( sizeof ( st ruct list)); 
memset ( (char *) new, 0, sizeof ( st ruct list)); 
return (new) ; 

} 

struct list_node * 
listMakeNewNode( ) 
{ 

struct list_node *new; 

new = (struct list_node *) malloc ( sizeof ( st ruct list_node)); 
memset((char *) new, 0, sizeof ( st ruct list_node)); 
return (new) ; 

} 

void 

listDestroy(alist, fDestroyData) 
struct list *alist; 
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int f Dest royData; 

struct list_node *node, *next_node; 
if (alist == NULL) { 

f printf ( stderr, "BadArgs to listDest roy ( ) \n" ) ; 

return; 

} 

/* 

* map (alist, free) ; 
*/ 

for (node = alist->head; node != NULL; ) { 
next_node = node->next; 

if (fDestroyData && (node->data != NULL)){ 
f ree(node->data) ; 

} 

f ree(node) ; 

node = next_node; 

} 

f ree(alist) ; 
return; 



void 

listDest royElements (alist , f Dest royData) 
struct list *alist; 
int fDestroyData; 

{ 

struct list_node *node, *next_node; 
if (alist == NULL) { 

f printf ( stderr, "BadArgs to listDest royElements 0 \n" ) ; 

return; 

} 

for (node = alist->head; node != NULL; ) { 
next_node = node->next; 

if (fDestroyData && (node->data != NULL)){ 
f ree(node->data) ; 

} 

f ree(node) ; 

node = next_node; 

} 

memset (alist, 0, sizeof ( st ruct list )); 
return; 

} 

void 

listlnsertAtHead (alist, node) 
struct list *alist; 
struct list_node *node; 

{ 

if ((alist == NULL) || (node == NULL)) { 

f printf (stderr, "BadArgs to listlnsertAtHead 0 \n" ) ; 
return; 

} 

if (alist->tail == NULL) { 
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alist->tail = node; 

} 

node->next = alist->head; 
alist->head = node; 
alist->list_count++; 
return; 

} 

void 

listlnsertAtTaiKalist, node) 
struct list *alist; 
struct list_node *node; 

{ 

if ((alist == NULL) || (node == NULL)) { 

f printf (stderr, "BadArgs to listlnsertAtTaiK )\n" ) ; 
return; 

} 

if (alist->head == NULL) { 

alist->head = node; 
} else { 

alist->tail->next = node; 

} 

alist->tail = node; 
node->next = NULL; 
alist->list_count++; 
return; 

} 

void 

listInsertAfter(alist, old, new) 
struct list *alist; 
struct list_node *old, *new; 

{ 

if ((alist == NULL) || (old == NULL) || (new == NULL)) { 
f printf ( stderr, "BadArgs to listlnsertAf ter ( ) \n" ) ; 
return; 

} 

#ifdef CHECK_NODE 

if ( !listCheckNode(alist, node)) { 

f printf ( stderr, "node %ld not on list %ld\n", node, alist); 
return; 

} 

#endif /* CHECK_NODE */ 

alist->list_count++; 
if (alist->tail == old) { 
alist->tail = new; 

} 

new->next = old->next; 
old->next = new; 
return ; 

} 
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void 

listDeleteThis(alist, node) 
struct list *alist; 
struct list_node *node; 

{ 

struct list_node *tmpnode; 

if ((alist == NULL) || (node == NULL)) { 

fprintf (stderr, "BadArgs to listDeleteThis ( ) \n" ) ; 

return; 

} 

#ifdef CHECK_NODE 

if ( ! listCheckNode(alist, node)) { 

fprintf ( stderr, "node %ld not on list %ld\n", node, alist); 
return; 

} 

#endif /* CHECK_NODE */ 

alist->list_count — ; 
if (node == alist->head) { 
alist->head = node->next; 
if (node == alist->tail) { 
alist->tail = NULL; 

} 

} 

else{ 

f or(tmpnode = alist->head ; tmpnode->next != node; tmpnode=tmpnode-> 

next ) { 
} /*get to prev node*/ 
tmpnode->next = node->next; 
if (node == alist->tail) { 
alist->tail = tmpnode; 
} 

} 

/*free (node); *//* caller frees when he wants */ 
return ; 

} 

void 

listDeleteThisData(alist, data) 
struct list *alist; 
char *data; 

{ 

struct list_node *tmpnode; 
if (alist == NULL){ 

fprintf ( stderr, "BadArgs to listDeleteThisData ( ) \n" ) ; 

return; 

} 

tmpnode = listFindNode(alist, data) ; 
ifdmpnode != NULL){ 

listDeleteThis (alist, tmpnode); 

free (tmpnode); 

} 
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return; 

} 

void 

listMap(alist, func, argl, arg2) 

struct list *alist; 

void (*func) (); 

char *argl, *arg2; /* space for args to func */ 

{ 

struct list_node *node; 
if (alist == NULL) { 

f printf ( stderr, "BadArgs to map()\n"); 

return; 

} 

for (node = alist->head; node != NULL; node = node->next) { 
f unc(node->data, argl, arg2); 

} 

} 

void 

listAppend (alist, blist) /* destructive append */ 
struct list *alist, *blist; 

{ 

if ((alist == NULL) || (blist == NULL)) { 

f printf ( stderr, "BadArgs to listAppend 0 \n" ) ; 
return; 

} 

if (alist->tail == NULL) { 

memcpy(alist, blist, sizeof ( st ruct list)); 
} else if (blist->tail == NULL) { 
/*alist unchanged*/ 
} else { 

alist->tail->next = blist->head; 
alist->tail = blist->tail; 
alist->list_count += blist->list_count ; 

} 

memset ( blist , 0, sizeof ( st ruct list)); /* destruction */ 
return ; 

} 

void 

listAfterlnsertList (alist, blist, node) /* destructive */ 
struct list *alist, *blist; 
struct list_node *node; 

{ 

/* since node is on alist, alist->head won't be null */ 

if ((alist == NULL) || (blist == NULL) || (node == NULL)) { 

f printf ( stderr, "BadArgs to listAf terlnsertList ( ) \n" ) ; 

return; 

} 

#ifdef CHECK_NODE 

if ( !listCheckNode(alist, node)) { 
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f printf ( stderr, "node %ld not on list %ld\n", node, alist); 
return; 

} 

#endif /* CHECK_NODE */ 

if ( (blist->head == NULL) || (blist->tail == NULL)) { 
memset(blist, 0, sizeof ( st ruct list)); 
return; /* nothing changes */ 

} 

alist->list_count += blist->list_count ; 
if (alist->tail == node) { 

alist->tail = blist->tail; 

} 

blist->tail->next = node->next; 
node->next = blist->head; 
return ; 

} 

struct list_node 
*listGetNthNode(alist, n) 

struct list *alist; 

int n; 

{ 

int i; 

struct list_node *node; 

if (alist == NULL){ 

fprintf (stderr, "BadArgs to listGetNthNode( ) \n" ) ; 
return NULL; 

} 

if ((n < 0) II (n > alist->list_count) ){ 
return NULL; 

} 

else{ 

f or ( i=0, node=alist->head ; i<n ; i++, node=node->next ) { 
} 

return node; 
} 

} 

int 

listSize(alist) 

struct list *alist; 

{ 

struct list_node *node; 
int i; 

if (alist == NULL) { 

fprintf ( stderr, "BadArgs to map()\n"); 
return -1; 

} 

for (node = alist->head, i=0; node != NULL; node = node->next, i++) { 
} 

return i; 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

/* a more robust interface to malloc and free */ 
#include <malloc.h> 

char * 
memMalloc(c) 

int c ; 

{ 

char *temp; 
if(c <=0){ 

f printf (stderr, "memMalloc( )->Warning : trying to malloc %d!\n",c); 
return NULL; 

} 

if(c < 32){ 
c = 32; 

} 

temp = malloc( (unsigned) c); 
if (temp == NULL) { 

f printf ( stderr, "memMalloc( )->Out of memory. Wanted %d\n",c); 

exit(-l) ; 
} else{ 

return temp; 

} 

} 

char * 
memCalloc ( size, num) 

int size; 
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int num; 

{ 

char *temp; 



if((size <=0)||(num <=0)){ 

fprintf (stderr, "memCalloc( )->Warning : trying to calloc %d,%d!\n", 
size, num) ; 
return NULL; 

} 

temp = calloc( (unsigned) size, num); 
if (temp == NULL) { 

fprintf ( stderr, "memCalloc( )->Out of memory .Wanted %d,%d\n", 
size, num) ; 

exit(-l) ; 
} else 

return temp; 

} 

char * 
memRealloc(p, num) 

char *p; 

int num; 

{ 

char *temp; 
if(num <=0){ 

fprintf ( stderr, "memRealloc( )->Warning : trying to realloc %d!\n", 
num) ; 
return NULL; 

} 

if(num < 32){ 
num = 32; 

} 

temp = realloc(p, (unsigned) num); 
if (temp == NULL) { 

fprintf ( stderr, "memRealloc( )->Out of memory .Wanted %d\n", num); 

exit(-l) ; 
} else 

return temp; 

} 

void 

memFreeMem(p) 
char *p; 
{ 

if(p != NULL){ 
f ree(p) ; 

} 

else{ 

fprintf ( stderr, "Warning., freeing NULL!\n"); 

} 

} 

void 

memTest ( ) 
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int i; 
char* p; 

printf ("memTest( )->doing some checks ! \n" ) ; 
for(i=l;i<1024;i++){ 

p = memMalloc ( i) ; 

memFreeMem(p) ; 

} 

printf ("memTest( )->done !\n"); 
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***/ 
***/ 

/** 

**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 

**/ 

/** 

**/ 

***/ 

***/ 

#include <stdio.h> 

#define INIT register char *sp = instring; 

#define GETCO (*sp++) 

#define PEEKCO (*sp) 

#define UNGETC(c) (— sp) 

#define RETURN(c) return; 

#define ERROR(c) regError(c) 

#include <regexp.h> 

#include <shast ra/utils/regExpr. h> 

#define DEBUG 
#define STANDALONEnn 

void 

compileRegExp( regExpr, regBufStart, regBufSize) 
char *regExpr; 
char *regBuf Start ; 

int regBufSize; 

{ 

/* 

* char *compile( instring, expbuf, endbuf, eof) 
*/ 

(void) compile! regExpr, regBufStart, &regBufSta rt [ regBufSize] , '\0'); 
#ifdef DEBUG 

printf ("compileRegExp( )-> compiled %s to %s\n", 
regExpr, regBufStart); 

#endif 
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matchRegExp(dataSt ring, regExpBuf ) 
char *dataString; 
char *regExpBuf; 

{ 

/* 

* int step(string, expbuf) 
*/ 

return (step(dataString, regExpBuf)); 



regError( c) 

int c ; 

{ 

fprintf (stderr, "regErrorO: "); 
switch (c) { 
case 11: 

fprintf ( stderr, "Range endpoint too large. \n"); 
break; 
case 16: 

fprintf ( stderr, "Bad number. \n" ) ; 
break; 
case 25: 

fprintf (stderr,"' '\ digit'' out of range. \n"); 
break; 
case 36: 

fprintf ( stderr, "Illegal or missing delimiter. \n" ) ; 
break; 
case 41: 

fprintf ( stderr, "No remembered search string. \n"); 
break; 
case 42: 

fprintf (stderr, "\( \) imbalance . \n" ) ; 
break; 
case 43: 

fprintf ( stderr, "Too many \(.\n"); 
break; 
case 44: 

fprintf ( stderr, "More than 2 numbers given in \{ \}.\n"); 
break; 
case 45: 

fprintf ( stderr, "} expected after \.\n"); 
break; 
case 46: 

fprintf ( stderr, "First number exceeds second in \{ \}.\n"); 
break; 
case 49: 

f print f ( stderr, " [] imbalance. \n" ) ; 
break; 



Page 2 of 4 



regExpr.c 



7/5/1 1 3:03 PM 



case 50: 

fprintf ( stderr, "Regular expression too long.\n"); 
break; 

} 

} 



#ifdef STANDALONE 

main ( ) 

{ 

#define ESIZE 256 

char expbuf [ESIZE] ; 

char inbuf[256]; 

int i; 
static char *mptnsb[] = { "", 

"ABSOLUTE", 

"BOOHOO", 

"CHARACTER", 

"DISTINCT", 

"EUPHORIA", 

"FIRST", 

"GO", 

"HEGEMONY", 

"INDICATOR", 

"JOCULAR", 

"KNAPSACK", 

"LANGUAGE", 

"MODULE", 

"NAME", 

"ON", 

"PRECISION", 

"OUARTZ", 

"RESTRICT", 

"SECTION", 

"TUMBLEWEED", 

"UNIOUE", 

"VALUES", 

"WHENEVER", 

"XCITING", 

"YEOMAN", 

"ZEBRA" }; 



while (gets(inbuf) != NULL) { 

compileRegExp(inbuf , expbuf, ESIZE); 

for (i = 0; i < 26; i++) { 

if (matchRegExp(mptnsb [i] , expbuf)) 
printf("%s matched \t", mptnsb[i], 

} 

} 

} 

#endif /* STANDALONE */ 
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***/ 



**/ 

/** This SHASTRA software is not in the Public Domain. It is distributed on 

**/ 

/** a person to person basis, solely for educational use and permission is 

**/ 

/** NOT granted for its transfer to anyone or for its use in any commercial 
**/ 

/** product. There is NO warranty on the available software and neither 
**/ 

/** Purdue University nor the Applied Algebra and Geometry group directed 

**/ 

/** by C. Bajaj accept responsibility for the consequences of its use. 



**/ 

***/ 

***/ 

#include <stdio.h> 

#include <shast ra/shilp. h> 
#include <shastra/utils/tree.h> 

/* binary trees */ 

struct tree * 
treeMakeNew(data) 

int data; 



struct tree *new; 

new = (struct tree *) malloc ( sizeof ( st ruct tree)); 

new->left = NULL; 

new->right = NULL; 

new->parent = NULL; 

new->control = 0; 

new->data = 0; 

return (new); 



***/ 



/** 



**/ 



/** 



{ 



} 



void 

treeInorder(atree 



f unc) 
*atree; 
(*func) (); 



struct tree 
void 



{ 

if (atree == 
return; 



NULL) { 
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} 

if (atree->left != NULL) { 

treeInorder(atree->left, func); 

} 

func(atree); /* func applied at node */ 

if (atree->right != NULL) { 

treeInorder(atree->right, func); 

} 

return; 

} 

void 

treePreorder(atree, func) 
struct tree *atree; 
void (*func) (); 

{ 

if (atree == NULL) { 
return; 

} 

func(atree); /* func applied at node */ 

if (atree->left != NULL) { 

treePreorder(atree->left, func); 

} 

if (atree->right != NULL) { 

t reePreorder ( at ree->right , func) ; 

} 

return; 

} 

void 

treePostorder(atree, func) 
struct tree *atree; 
void (*func) (); 

{ 

if (atree == NULL) { 
return; 

} 

if (atree->left != NULL) { 

treePostorder(atree->left, func) ; 

} 

if (atree->right != NULL) { 

treePostorder(atree->right, func) ; 

} 

func(atree); /* func applied at node */ 

return; 

} 

struct tree * 
treelnsert(atree, data) 

struct tree *atree; 

int data; 

{ 

struct tree *node; 



Page 2 of 4 



tree.c 



7/5/1 1 3:03 PM 



if (atree == NULL) { 

f printf ( stderr, "BadArg to insert(%ld,%d)\n", atree, data); 
return NULL; 

} 

if (data == atree->data) { 

return (atree); /* nilpo duplication */ 
} else if (data < atree->data) { 
if (atree->left == NULL) { 

atree->left = node = treeMakeNew(data) ; 
node->parent = atree; 
return (node); 
} else { 

return (t reelnsert (at ree->lef t, data)); 

} 

} else { 

if (atree->right == NULL) { 

atree->right = node = treeMakeNew(data) ; 

node->parent = atree; 

return (node); 
} else { 

return (t reelnsert (at ree->right, data)); 

} 

} 

} 



struct tree * 
treeBinarySearch(atree, data) 

struct tree *atree; 

int data; 

{ 

if (atree == NULL) { 
return NULL; 

} 

if (data == atree->data) { 

return (atree); /* found */ 
} else if (data < atree->data) { 

return (treeBinarySearch(atree->left, data)); 
} else { 

return (treeBinarySearch(atree->right, data)); 

} 

} 

struct tree * 

t reeFindNextSmaller(at ree) 

struct tree *atree; 

{ 

struct tree *node; 

if ((node = atree->left) == NULL) { 
return (NULL); 

} 

for (node; node->right != NULL; node = node->right) { 
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} 

return (node); 

} 

struct tree * 
treeFindNext Bigger (at ree) 
struct tree *atree; 
{ 

struct tree *node; 

if ((node = at ree->right ) == NULL) { 
return (NULL); 

} 

for (node; node->left != NULL; node = node->left) { 
} 

return (node); 

} 

void 

treeDeleteThis(atree, node) 

struct tree *atree, *node; 

{ 

struct tree *nbor; 

if ((nbor = treeFindNextBigger(atree) ) == NULL) { 

} else { 

nbor->parent->lef t = NULL; 
nbor->left = atree->left; 
nbor->parent = atree->parent; 

if (atree->parent == NULL) { /* deleting root */ 
} else { 

if (check_am_lsub(atree) ) { 
atree->parent->left = nbor; 
} 

else { 

atree->parent->right = nbor; 

} 

} 

} 

} 
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